my $cols = @{ $csv->getline($fh) };