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