Select Code to Download

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

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