foreach my $line (<INPUT>)
{
    next if (grep{$line =~ /\Q$_\E/}@list);
    print $line;
}