Were you meaning something like this?

my @arr;
map { push( @arr, ( ( "$_" ) x $hash{$_} ) ) } keys %hash;
[download]