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