my @caps = map uc, @lower;

##</code><code>##

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