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

##</code><code>##

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

##</code><code>##

  $csv->column_names ($csv->getline ($io));

##</code><code>##

  my @names = $csv->column_names ();