for my $i (0 .. $#AoA) {
    my $a = $AoA[$i][1];
    my $b = $AoA[$i][2];
}