my @arrayl = map {ucfirst} @array;