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