# Compiles each pattern twice
for (1..2) {
   for my $re (qw( foo bar )) {
      /$re/
   }
}