use List::Compare;
use strict;
open (GEN, "general.txt")||die("general.txt File cannot open\n");
open (SEA, "search.txt")||die("search.txt File cannot open\n");
my @gen=<GEN>;
my @sea=<SEA>;
my @result;
my @final;

for $a (@gen)
{
    @result = grep/^\Q$a\E$/, @sea;
    push (@final , @result);
}

open(OUT, ">textCompare3Output.txt")||die("cannot create\n");
print OUT "\nSearch string that matches against general data:\t@final";