Not sure if you mean a regex to apply to your perl source to change the code or something to put in your code to change @array1.

If the latter,

my @array1 = map ucfirst, @array;
[download]

does it; no regex necessary.