for (@AoA) {
    my ($x, $y) = @{$_}[1, 2];
}