Help for this page
my @AoA= (['a', 'b'], ['c', 'd'], ... $csv->print ($fh, $_) for @AoA; close $fh;
my @AoA= (['a', 'b'], ['c', 'd'], ... ... $csv->print ($fh, $aref);#tried this too. close $fh