in reply to in function?

The Cookbook offers an answer on how to find all elements in a array that match a certain criteria:
@matching = grep { TEST $_ } @array;