my $pattern = join ('|', @countries);
if ($country =~ /^($pattern)$/) {
   print "True\n"
}