while ( my($key,$val) = each %hash ) {
  $ih{$val}{$key}++;
}