$a[$_%9].=$_.$/for glob'{1,0}'x8;print@a