$a[$$_//=@a].=$_ for<>;print@a