Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...

print Dumper(\@AoA);

Select or download this

my @AoAoA = ( [ [1,2,3] ,[1,1,3],[1,5,2] ],
              [ [0,-1,3],[1,5,2],[3,2,1] ],
              [ [0,-1,3],[1,-1,3],[5,4,2] ],
           );