Just for TIMTOWTDI's sake, you could do without a for loop, although the dereferencing principle remains the same.

print join ", ", map {$_->[1]} @AoA;
[download]