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