Select Code to Download

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

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