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