Select Code to Download

    for (my $x = 0; $x <= $#AoA; $x++)
    {
        print "@{ $AoA[$x] }\n";
    }

   print "@$_\n" for @AoA;