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