my @someFruit = map { if ($_ =~ m/^[ap]/) { $_;} else { (); } } @allFruit;

##</code><code>##

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

##</code><code>##

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