Select Code to Download

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 @alpha = ("a".."z");

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

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

foreach $yy (1..26) {
    foreach $xx (1..26) {
...
    }
    print \n
}