my %ih;

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

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