Needlessly uses captures, and incorrectly assumes @countries contains regexps. Fix:

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

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

Or even

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

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