my @s = qw/ foo bar /; for (@words) { for my $s (@s) { print if /$s/; } }