for my $key (keys %hashs) {
    for (keys %{$hashs{$key}}) {
        print "$key - $hashs{$key}{$_} -> $_\n" 
          if $hashs{$key}{$_} > 1;
      }
  }