use strict;

my @alpha = qw(a b c d e f g h i j k l m n o p q r s t u v w x y z);
my $x=0;
my $y=0;
my @outtie;
my ($xx, $yy, $S, $al, $ap);

#INPUT
foreach $_ (@alpha) {

        foreach $al (@alpha) {
                print "X = $x Y = $y ";
                $outtie[$x][$y] = $al;
                print "SET to $al\n";
                $x++;
        }

        $y++;
        $x=0;
}

#OUTPUT
$yy = 0;
$xx = 0;
while ($yy < 26) {
        $xx = 0;
        while ($xx < 26) {
                print " $outtie[$xx][$yy] ";
                $xx++;
        }
        print "\n";
        $yy++;
}