@alpha = 'a' .. 'z';
@outtie = ( [ @alpha ] ) x @alpha;
foreach (@outtie) {
    print " $_ " foreach @$_;
    print "\n";
}