my @array = qw(foo bar baz qux);

my @newarray = grep { /Ba/ }
               map  { my $foo = $_;
                      $foo =~ s/./\u$&/; # useless example
                      $foo }
               grep { /a/ }
               @array;