$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";