Select Code to Download

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

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

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

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