#!/usr/bin/perl -w
use strict;

my @largeArray;
$largeArray[0] = "this is a test";
$largeArray[1] = "this is another test";
$largeArray[2] = "that is another test";
$largeArray[3] = "test this is another";

my @searchCriteria;
$searchCriteria[0] = "another";
$searchCriteria[1] = "test";

my $match_code = join(' and ', map "\$_[0] =~ /\Q$_\E/", @searchCriteria );
my $matcher = eval "sub { $match_code }; ";
my @newArray = grep $matcher->($_), @largeArray;

print "$_\n" foreach(@newArray);