sub dump {
   my $node = shift;
   print(join('.', @_), "\n");
   dump($node->{$_}, @_, $_) for keys(%$node);
}