I was suprised to see all the above responses w/o the mention of grep (though gube's and sh1tn 's are essentially grep's)

while( my ($key, $hash) = each %hashs ){
  foreach my $subkey ( grep { $hash{$_} > 1 } keys %$hash ){
    printf "%s - %s -> %s\n", $key, $hash{$subkey}, $subkey;
  }
}
[download]