my $columns = [ 1, "foo", 3 ];
$csv->print( \*OUT, $columns);
# ...
my @columns = ( 1, "foo", 3 );
$csv->print( \*OUT, \@columns);