A better option might be to join the regex array together as a single regex made up of alternations

my $regex = do {
  local $" = '|';
  qr/(?:@regexes)/;
};
my @matches = grep /$regex/, @array;
[download]

HTH

_________
broquaint

update: changed code re neilwatson's clarification