my $aref = [1,2,[3,4,5,[6,7] ] ];
print $aref->[2][3][1];
7
my @array = (1,2,[3,4,5,[6,7] ] ); print $array[2][3][1]; 7