Something like this perhaps:

use strict;

my @alpha = 'a' .. 'z';
my @outtie;

# INPUT
$outtie[$_] = [@alpha] foreach 0 .. 25;

#OUTPUT
foreach my $x (@outtie) {
  foreach my $y (@$x) {
    print " $y ";
  }
  print "\n";
}
[download]

--
<http://www.dave.org.uk>

"Perl makes the fun jobs fun
and the boring jobs bearable" - me