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