for my $x (qw( foo bar )) {
   /$x/o;
}