I'm looking to find common lines between two files (mail.fil) and (THIDSerrs). I then want to eliminate the common lines from the one file, mail.fil.
open FILE,"< mail.fil";
my @errs = <FILE>;
my @subarray = ();
foreach my $oralines(@oralines)
foreach my $errs(@errs)
push @subarray, $oralines if grep /$errs/, @oralines;
print "@subarray \n";
Hope this is more readable - I'm new at this.