my %ih;

$ih{$hash{$_}}{$_}++ for keys %hash;

print 
  for grep { keys %{$ih{$_}} > 1 } keys %ih;

##</code><code>##

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