foreach ( 1 .. 64 ) {
  print "\n" if ( $_ - 1 ) % 8 == 0;
  print "$_ ";
}