my %child = (
    a => 1,
);
my %parent = (
    child => \%child,
);
$child{parent} = \%parent;