Your    Possible
Table   Results 
-----  ----- -----
  A     A B   A H 
  B     C D   B I 
  C     E F   C J 
  D     G H   D K 
  E     I J   E L 
  F     K L   F M 
  G     M N   G N 
  H    
  I    
  J    
  K    
  L    
  M    
  N    

##</code><code>##

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;

##</code><code>##

# Open a text file
# Read the file
# Print file contents out like this
# LINE_1  LINE_2
# LINE_3  LINE_4