sub insert_domain {
    my $cursor = shift;
    $cursor = $cursor->{$_} ||= {} for @_;
    $cursor = {};
}

insert_domain(\%domain, qw(org perlmonks www));