foreach my $paramKey (@params){ $i = 0; open (FILE1, "ludo.txt"); while(){ if (/$paramKey[$i]/){ print FILE2; } $i++; } close(FILE1); close(FILE2); }