Select Code to Download

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

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