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

for my $x (1 .. 64) {
    printf("%.2d ", $x);
    print "\n" if not $x % 8;
}