foreach my $foo (qw(bar baz)) { }