Select Code to Download

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

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