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

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