Select Code to Download

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

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

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