my %children = $doc->{root}{node}[0]('%');
say join "\n", map { "$_ = $children{$_}" } keys %children;
say keys %children == 6 ? "ok" : "XXX";  # includes extra "CONTENT" key/value