Select Code to Download

use Data::Dump;
dd \@AoA;
...
use Data::Dumper;
$Data::Dumper::Useqq=1;
print Dumper(\@AoA);