Select Code to Download

my %hash = map { $_ => 1 } qw{ shave the modern way };

my $str;
$str = $_ x $freq{$_} for sort keys %freq;