@x=(1,2,3,4,5,6) Array::Reform->reform(\@x,2);