foreach my $country (qw/I give a fig/) { ... }