images/napali.gifNapali.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";