my %hash2;
for my $val (sort values %hash2) {
  if(exists $hash2{$val}) {
    $hash2{$val}++;
  } else {
    $hash2{$val} = 1;
  }
}