my @twoD = ( [ 1, 2, 3 ],
             [ 4, 5, 6 ],
           );
print "Top level or array has " . scalar @twoD . " elements\n";
for my $row ( @twoD ) {
   print "row has " . scalar @$row . " elements\n";
}