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