my @names = @{$csv->getline ($io)}; # note the @{...}
  $csv->column_names (@names);