Napali.ch
/perl
my @AoA = ( [ 2, 3 ], [ 4, 5, 7 ], [ 9 ] , ); print "\$AoA: $AoA[0][1] \n"; # $AoA: 3 print "\$AoA: $AoA[1][2] \n"; # $AoA: 7 print "\$AoA: $AoA[2][0] \n"; # $AoA: 9 print "scalar \@AoA: " . scalar @AoA . "\n"; print "scalar \$AoA[1]->[2]: " . $AoA[1]->[2] . "\n";