$_+=$k*print$_,$/for((($_=<>)-++$|)%($k=/ /+$'))x9