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