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