Select Code to Download

#!/usr/bin/env perl
use strict;
...
        $col = $col + 1;
    }
}

#!/usr/bin/env perl
use strict;
...
    print $num % 8 ? "\t" : "\n";
    $num = $num + 1;
}

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

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