sub MySub { ...some stuff... return map split(/ /,$_,2), map uc, @somearray; }