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