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>;

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";

##</code><code>##

Global symbol "$gen" requires explicit package name at textCompare3.pl line 8.
Global symbol "@result" requires explicit package name at textCompare3.pl line 10.
Global symbol "@final" requires explicit package name at textCompare3.pl line 11.
Global symbol "@result" requires explicit package name at textCompare3.pl line 11.
Global symbol "@final" requires explicit package name at textCompare3.pl line 15.
Execution of textCompare3.pl aborted due to compilation errors.