sub foo {
    $_ = uc($_) for @_;
}

my @array = qw( foo bar Foo Bar );
foo grep /^[A-Z]/, @array;
print "$_\n" for @array;