for ( sort { $a <=> $b } keys %counts ) {
   print("$_: $counts{$_}\n");
}