foreach (@keywords) {
    push @found, $_ if $line =~ m/$_/i;
}