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

foreach my $word (@words) {
   foreach (@array) {
      if (/\Q$word/) {  # GOOD!! regexp only recompiled when needed.
         print;
         last;
      }
   }
}