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);

##</code><code>##

my @alpha = ("a".."z");

##</code><code>##

my $x=0;
my $y=0;

##</code><code>##

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

##</code><code>##

foreach $yy (1..26) {
    foreach $xx (1..26) {
        print " $outtie[$xx][$yy] ";
    }
    print \n
}