my $h1;
my $h2;
$h2->{'bar'} = 1;
$h1->{'foo'} = $h2;