Select Code to Download

$largeArray[0] = "this is a test";
$largeArray[1] = "this is another test";
...
if (@newArray = grep {/@searchCriteria/} @largeArray) {
   print @newArray;
}

if (@newArray = grep {/another/ and /test/} @largeArray) {
   print @newArray;
}