#!/usr/bin/perl -w

use strict;

my $lineNumber = 0;
my $squareNumber = 0;
my $maxSquare = 8 * 8;

while ($squareNumber < $maxSquare) {
	$squareNumber++;
	printf " %02d ", $squareNumber;
	if (! ($squareNumber % 8) ) {
		print "\n";
	}
}
print "\n";

exit;

__END__

C:\Steve\Dev\PerlMonks\P-2013-10-03@1652-8x8-Loop>8x8mod.pl
 01  02  03  04  05  06  07  08
 09  10  11  12  13  14  15  16
 17  18  19  20  21  22  23  24
 25  26  27  28  29  30  31  32
 33  34  35  36  37  38  39  40
 41  42  43  44  45  46  47  48
 49  50  51  52  53  54  55  56
 57  58  59  60  61  62  63  64