DB<139> sub my_uc {
               my $c = shift;
               return uc($c);
           }
 
  DB<140> my_uc()
 
  DB<141> @a = map my_uc, a..c
 => ("", "", "")