#!/usr/bin/env perl
use strict;
use warnings;

my ($row, $col) = (1,1);
while ($row <= 8 and $col <= 8) {
    print (($row - 1) * 8 + $col, "\t");
    if ($col == 8) { # start next row
        print "\n";
        $row = $row + 1;
        $col = 1;
    } else {
        $col = $col + 1;
    }
}

##</code><code>##

#!/usr/bin/env perl
use strict;
use warnings;

my $num = 1;
while ( $num <= 64) {
    print $num;
    print $num % 8 ? "\t" : "\n";
    $num = $num + 1;
}

##</code><code>##

use strict;
use warnings;
for (my $x = 1; $x <= 64; $x += 1) {
    print $x, $x % 8 ? "\t" : "\n";
}

##</code><code>##

perl -e 'print $_, $_ % 8 ? "\t" : "\n" for 1..64;'