foreach my $regex (@regexes) {
  @array = grep { ! m/$regex/ } @array;
}