Select Code to Download

$pseudo_hash->[0]->{"z"} = @{$pseudo_hash};

$pseudo_hash->{"z"} = "value z";

my $a = [ {first=>1, second=>2}, "hello", "there" ];
print "$a->{first}\t$a->{second}\n";
...
$a->[0]->{'third'} = @{$a};
$a->{'third'} = "foo";
print "$a->{first}\t$a->{second}\t$a->{third}\n";