Updated Oops! I mistook any() for all(). Fixed thusly

This is easy - your grep condition should return true if all of the search strings are found within the string being tested. In this case I created a function which tests a string against a criteria list and returns false if any don't match. Then I modified your grep so that it tests each element against all the criteria.

sub indexall { -1 == index $_, $_[0] and return 0 for @_[1 .. $#_]; re
+turn 1 }

if (@newArray = grep indexall($_, @searchCriteria), @largeArray) {
    print @newArray;
}
[download]