s/(\w)(\w*)/\U$1\E$2/ for @array;


##</code><code>##

my @arrayl = map {ucfirst} @array;


##</code><code>##

$_ = 'foo bar foobar barfoo 1 2 3';
s/(\w)(\w*)/\U$1\E$2/g;
print;
# Foo Bar Foobar Barfoo 1 2 3