foreach my $val(values(%hash)){
  $hsah{$val}++;
}