my $re_text = join '|', map {($_)} @countries;
my $re = rx/$re_text/;

##</code><code>##

while ( my $line = <$fh>) {
    chomp $line;
    my $found = ($line =~ /$re/);
    # Profit!
}