In a word: chomp. Also, I think you really want to search general.txt for the match text (one per line) from search.txt, so the for loop becomes something like:

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