use strict;
use warnings;

my @stuff = 1..14;

# Print 14 rows in one column.
print "\n\n14 Rows\n";
print join "\n", @stuff;

# Print 7 rows two columns
print "\n\n7 Rows One Way\n";
print map { "$stuff[2*$_]\t$stuff[2*$_+1]\n" } 0..$#stuff/2;

print "\n\n7 Rows Another Way\n";
print map { "$stuff[$_]\t$stuff[$#stuff/2+$_+1]\n" } 0..$#stuff/2;