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