Select Code to Download

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

push @arr, values %h;

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

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

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