Select Code to Download

my %ih;

...

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

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