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

##</code><code>##

Use of uninitialized value in numeric gt (>) at test.pl line 33, <$testdataset> line 7.