sort {my ($a,$b); $a <=> $b } keys %tallies;