map {$_ = ucfirst} @array;

##</code><code>##

    for (@array) {$_ = ucfirst}