use strict;

#open (CH, "</opt/lampp/htdocs/parser/test/exploit_description.txt");
my @check = <DATA>;
#close CH;

my @unique_milw0rm = ();
my @milw0rm_title;
for (my $i;$i<=$#milw0rm_title;$i++) {
    $seen = 0;
    for (my $j;$j<=$#check;$j++) {
    if ($milw0rm_title[$i] =~ /$check[$j]/) { 
        $seen = 1;
        next;
    }
};
if ($seen == 0) { 
    push @unique_milw0rm, $milw0rm_title[$i]};
};

__DATA__
some milw0rm data
more milw0rm data

##</code><code>##

print "First entry of check array: >$check[0]<\n";