Help for this page
my $file = <FILE>; my @column; while (<FILE>) { @column=($file);
while (my $file = <FILE>) {