my @names = @{$csv->getline ($io)}; # note the @{...}
  $csv->column_names ( [ @names ] );  # extra whitespace for attention