print $_ . ": ". $histogram{$_} ."\n" for sort { $a <=> $b } keys %histogram;