push @data, [split /,/]->[$col] for (<FILE>);