#!/usr/bin/perl

use strict;
use Tie::IxHash;

tie my %hash,"Tie::IxHash";

open(APP,'<',"eng_text1.txt") or die $!;
while(my $line = <APP>){
    chomp $line;
    $line =~ s/\s+/ /g;
    $hash{$line} = 1;
}
close (APP);

open(NEG,'<',"eng_text2.txt") or die $!;
while(my $line = <NEG>) {
    chomp $line;
    $line =~ s/\s+/ /g;
    $line =~ s/\p{IsPunct}//g;
    if(exists $hash{$line}){
        delete $hash{$line};
    }
}
close(NEG);

open(OUT,">saetze_hash.txt") or die $!;
print OUT $_,"\n" for(keys %hash);
close(OUT) or die $!;