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