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