The variable in the foreach loop should also be properly declared, and preferably not called $a.

for my $pattern (@gen)
{
    my @result = grep/^\Q$pattern\E$/, @sea;
    push (@final , @result);
}
[download]