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