my @someFruit = map { /^[ap]/ ? $_ : ();} } @allFruit;