use re 'debug';

for my $i (1..2) {
   for my $re (qw( abc def )) {
      $i =~ /$re/;
   }
}