my %hash = (  key1 => 'value1',
              key2 => 'value2',
              key3 => 'value3',
              key3 => 'value3',
              key3 => 'value3',
              key1 => 'value3',

##</code><code>##

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