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