Select Code to Download

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

foo
bar
FOO
BAR

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

foo
bar
FOO
BAR