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