I'm not sure exactly what you're asking, but these two are the same thing:

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