$csv->print ($fh1, [$ifile, @cols, @matches ]);

##</code><code>##

$ perl -wE 'my @cols = qw{a b c}; say "*".@cols'
*3

##</code><code>##

$ perl -wE 'my @c = (1,2,3); say "*", @c'
*123

##</code><code>##

$ perl -wE 'my @c = (1,2,3); say "*@c"'
*1 2 3

##</code><code>##

$ perl -wE 'my @c = (1,2,3); say map { "*$_" } @c'
*1*2*3

##</code><code>##

$ perl -wE 'my @c = (1,2,3); say "@{[ map { qq{*$_} } @c ]}"'
*1 *2 *3