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

##</code><code>##

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