my @words = (
   'foo',
   'bar',
);

while (<FILE>) {
   foreach my $word (@words) {
      if (/\Q$word/) {  # BAD!! $word always changes.
         print;
         last;
      }
   }
}