my $pattern = join '|',
              map quotemeta,
              @countries;

if ($country =~ /^(?:$pattern)$/) {
   print "True\n"
}