my @AoA= (['a', 'b'],
          ['c', 'd'],
          ...
          and so on);
my $aref = \@AoA;

my $csv = Text::CSV->new ( { binary => 1 } );
              
open my $fh, ">", "new.text";
 $csv->print ($fh, $aref) for @AoA;
$csv->print ($fh, $aref);#tried this too.
 
 close $fh