$line=~/$_/i&&push(@found,$_)for@keywords;

##</code><code>##

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

##</code><code>##

my @found = grep { $line =~ /$_/i } @keywords;