@sorted=sort{$tallies{my $a} <=> $tallies{my $b}} keys %tallies