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