INPUT: while (<IN>) {
 for my $match (@list) {
  next INPUT if /$match/;
 }
 print;
}