my $file = <FILE>;
my @column;
while (<FILE>) {
   @column=($file);

##</code><code>##

while (my $file = <FILE>) {