my $a = [ "mark", 1, 2, "three"]; #anon array
my @b = ( "anon", 3, 4, "five"); #named array
my $b = [@b]; #anon array from named
my $c = [ $a, [@b], $b, [ "werd", 5, 6, "seven" ] ];
my @d = ( $a, $b, $c->[3] );

print "$d[2]->[3] and $c->[3][3]\n";