my $x=[{foo=>[]}];
$x->{foo}=1;