$n=A;$a[$<-$_]=$n++.$/for<>;print@a