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