sub indexall { -1 == index $_, $_[0] and return 0 for @_[1 .. $#_]; return 1 } if (@newArray = grep indexall($_, @searchCriteria), @largeArray) { print @newArray; }