I would generally be inclined to use

@ar = grep {
    my $all_matched=1;
    for my $p (@patterns) {
        last unless $all_matched = /$p/;
    }
    $all_matched;
} @ar;
[download]

but if reconstructing the array this way was a memory concern, I'd walk backward through the array so that anything I removed would not affect the indexes of elements I have yet to examine:

sub filter_stuff {
   my $stuff = shift;
   my @patterns = @_;
   # Backwards iteration trick:
   # use negative of negative loop variable as index
   for my $i (-$#$stuff..0) {
       for (@patterns) {
           splice(@$stuff, -$i, 1) && last unless $stuff->[-$i] =~ /$_
+/;
       }
   }
}
[download]

Update: The non-tricky way of walking backward through an array, of course, is

for (my $i=$#$stuff; $i >= 0; --$i) {
#use $i as index
}
[download]

I just wanted to avoid the C-style loop, for religious reasons.