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