The docs say that it takes a reference to an array. So:

my @columns = (qw/what ever the items are for each columns/);
$csv = Text::CSV_XS->new();
# $io is a filehandle from IO::File which has a print method. A glob d
+oes not.
$status = $csv->print($io, \@columns);
[download]

Use IO::File to make the filehandle. Not a glob as from what I understand the handle needs a print method in order for this to work.