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";
}