in reply to Extracting subset from list: map unsuitable?

@someFruit = grep /^[ap]/, @allFruit;

In Section Seekers of Perl Wisdom