Select Code to Download

foreach $x (@regex){
   @bad_matches = grep ! m/$x/, @array;
}

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

my (@array); # is populated however you originally did
my (@keepers);
...
}
# if you want it back on @array, just uncomment:
# @array = @keepers;