Select Code to Download

use Modern::Perl;

my %hash = (
...
my @flatlist = map { ($_) x $hash{$_}} keys %hash;

say "@flatlist";