print expects a file handle and a reference to an array of field values.

my @row = qw( 1 2 3 4 5 'hello world');
$csv->print($fh, \@row);
[download]