foreach (sort keys %hash) {
   $hist{$_}++;
}