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