...
    my @separated = map { split(' ', $_, 2) } @somearray;
    @separated    = map { uc $_ }             @separated;
    return @separated;
}

##</code><code>##

    ...
    return map{ split / /, uc, 2 } @somearray;
}