o you mean swapping the "foreach" loop and the "while" one? like this?

open (FILE1, "<tabtext.txt");
open (FILE2, ">ludo.txt");
while(<FILE1>){
    foreach my $paramKey (@params){
        if (/$paramKey/){
            print FILE2;
        }
    }
}
close(FILE1);
close(FILE2);
[download]

and it's not an homework!! LOL