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