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

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