Hmm verstehe ich nicht.

Quote

chomp $line;
$line =~ s/\s+/ /g;
$hash{$line} = 1;

Also als erstes cuttet ihr das \n Okey.
Dann ersetzt du alle leerzeich durch ein leerzeichen. Und schreibst das in einen hasch.
Aber wo zum henker verschwinden , etc?

Bei der Zeile $line =~ s/\p{IsPunct}//g; sagt mir gar nichts.
Was ist denn \p?

Am meisten fällt mir auf das du dann ne Zeile zu Zeile vergleich durchführst.
if(exists $hash{$line}){
delete $hash{$line};

Aber in der Liste kann ja nur ein Teilstück drinn stehen. Das würde auf den Hash doch dann nicht matchen
Oder, verstehe ich hier was falsch?

Ich würde irgendwie eine Abfrage ala
$lineDat1 =~ /$lineDat2/ erwarten...

Oder bin ich in der Falschen Galaxsis?

Havis antwort ist genauso unklar.
Warum splittest du an \t?
Warum überhaupt die zeile Splitten?