# Compiles each pattern once
my @res = map qr/$_/, qw( foo bar );
for (1..2) {
   for my $re (@res) {
      /$re/
   }
}