Hi,

I am trying to append some columns of data to a file, however everytime I append a new column of data (written from an array) it just adds it to the bottom of the last column insted of beside it. Does anybody know how to write data to a file in a column by column basis?

Thanks in advance

S

#!/usr/bin/perl -i 
 
use strict; 
use warnings; 
 
my @new_column = (); 
# load the column array 
 
while( <> ){ 
  chomp; 
  sprintf "%-80s %s\n", $_, shift @new_column; 
}