Select Code to Download

print join("\n",@AoA);      #where @AoA is an Array of Arrays

my @AoA;

...

$AoA[$i] = \@subarray;