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