# Compiles each pattern once since m// realises
# you're using the same pattern twice in a row.
for my $re (qw( foo bar )) {
   for (1..2) {
      /$re/
   }
}