if (ref($hash_ref -> {$keys[$k]}) eq 'ARRAY') {
my @keys2 = keys (%$keys[$k]);
}