sub f{@a=1..$_,($_)x6,reverse@a}print$"x(8-$_),f,$/for f$_=8