An easier regex/substitution would be:

my @array = qw/one Two three four five/;
s/(.)/\u\L$1/ for @array;
[download]