# get the 4th column
 my @column = map { $_->[3] } @{$csv->getline_all ($fh)};