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

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