for my $index (0 .. $#AoA) {
    print "$index\t@{ $AoA[$index] }\n";
}