$n=A;$a[/ /,$<-$`.$'*2]=$n++.$/for<>;print@a