local $/;
my $contents = <IN>;
close IN;
my @found;
for (@array) {
    next if -1 == index $contents, $_;
    push @found, $_;
}
##</code><code>##

my @found = grep {-1 != index $content, $_} @array;