Help for this page
my @h1_inners = (); for my $ref (values %hash1) { push(@h1_inners, keys %$ref); }