Select Code to Download

my @caps = map uc, @lower;

sub my_uc (_) {  # note underscore in parentheses
  my $c = shift;
  return uc($c);
}