my @someFruit = grep { m/^[ap]/ } @allFruit;