my @regexes = map { qr/\Q$_/ } @latin_am;
while (<>) {
    for my $regex (@regexes) {
        if ($_ =~ $regex) {
            print;
            last;
        }
    }
}