#!/usr/bin/perl -wl -  
use strict;
my @a = (
  [
    [
      0,
      1
    ]
  ],
  [
    [
      2
    ]
  ],
  [
    [
      3
    ]
  ]
);

print $#a;
print $a[0];
print $#{$a[0]};
print $a[0][0];
print $#{$a[0][0]};
print $a[0][0][0];
print $/;
print $a[1];
print $#{$a[1]};
print $a[1][0];
print $#{$a[1][0]};
print $a[1][0][0];

__END__

2
ARRAY(0x1abf1dc)
0
ARRAY(0x1abf0f8)
1
0


ARRAY(0x1ab5214)
0
ARRAY(0x1ab51cc)
0
2