for (@keywords) {
    next unless $line =~ /$_/i;
    push @found, $_;
}