use strict; my @alpha = ("a".."z"); my @outtie; # INPUT push @outtie, [ @alpha ] for @alpha; #OUTPUT print join(" ", @{$_}), "\n" for @outtie; #### @_=(['a'..'z'])x26; print"@$_\n"for@_;