#!/usr/bin/perl -wl -  
use strict;

my @a;
$a[0][0][0] = 0;
$a[0][0][1] = 1;
$a[1][0][0] = 2;
$a[2][0][0] = 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(0x1abf1ac)
0
ARRAY(0x1abf1d0)
1
0


ARRAY(0x1ab51fc)
0
ARRAY(0x1ab522c)
0
2