# find lines with keywords
    foreach my $i (@keywords) {     ## -- LINE 40 --

        if($line =~ m/$i/i) {

            # copy found lines to the found lines array
            push @found , $line;
        }
    }