for (@array) {$_ = ucfirst}