my %hash = map { $_ => 1 } qw{ shave the modern way }; #### my $str; $str = $_ x $freq{$_} for sort keys %freq;