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

##</code><code>##

push @arr, values %h;

##</code><code>##

push @arr, map @$_, values %h;

##</code><code>##

push @arr, map %$_, values %h;

##</code><code>##

push @arr, map ref() eq 'ARRAY' ? @$_ : ref() eq 'HASH' ? %$_ : $_, values %h;