my ($pattern) = map qr/^(?:$_)$/,
                join '|',
                map quotemeta,
                @countries;

if ($country =~ $pattern) {
   print "True\n"
}