foreach my $match (@matches) { my @results = grep /$match/, @results; print @results; }