#!/usr/bin/perl -w

use strict;

foreach my $y_axis (1..8) {
    my $output_text = '';
    foreach my $x_axis (1..8) {
        $output_text .= " $x_axis$y_axis ";
    }
    print "$output_text\n";
}

exit;

__END__

C:\Steve\Dev\PerlMonks\P-2013-10-03@1652-8x8-Loop>8x8.pl
 11  21  31  41  51  61  71  81
 12  22  32  42  52  62  72  82
 13  23  33  43  53  63  73  83
 14  24  34  44  54  64  74  84
 15  25  35  45  55  65  75  85
 16  26  36  46  56  66  76  86
 17  27  37  47  57  67  77  87
 18  28  38  48  58  68  78  88