my @columns = @{$csv->getline (*DATA)};
$csv->print (*STDOUT, \@columns);