@latin_am=("Ecuador","Mexico");
$regex = join ("|", @latin_am);

open( FILE, 'input.txt' ) or die "input.txt: $!";
@lines = grep { /$regex/o } <FILE>;