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