#!/usr/bin/perl -w

use strict;
use warnings;

my $i = 8;
my $c = 'a';

while ($i > 0) {
        printf " %1s%1s", $c++, $i;
        if ($c gt 'h') {
                $i--;
                $c = 'a';
                print "\n";
        }
}