foreach $key(keys %h)
{
push(@arr,$h{$key});
}
[download]

Could more simply be written as:

push @arr, values %h;
[download]

If the values contain array references then:

push @arr, map @$_, values %h;
[download]

Or if the values contain hash references then:

push @arr, map %$_, values %h;
[download]

And if you don't know beforehand:

push @arr, map ref() eq 'ARRAY' ? @$_ : ref() eq 'HASH' ? %$_ : $_, va
+lues %h;
[download]