while (@AoA) {
    my $var = shift @AoA;
    my $a = $var->[1];
    my $b = $var->[2];
}