Select Code to Download

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