my @arr=map [0..$_], 4,3,10;