You should provide sample data (file contents) in a <readmore>...</readmore> block in your original post so that others can reproduce your problem.

Here is the content of the files to be compared: 'general.txt':
Read more... (29 Bytes)
'search.txt':
Read more... (11 Bytes)

and now that the "compile" errors are fixed you should state your new problem: what do you expect to see and what do you actually see.

For test purposes it would be better to print to STDOUT rather than to a file.

well the code should take the search strings from 'search.txt' (here: 'Juergen'), take this string and compare it to all entries in 'general.txt'. Since one of the entries in 'general.txt' is a matching string, the output should be written into an output text file.

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]

---

Perl is Huffman encoded by design.