foreach (keys %{ $embeddedDoc }) {
   print "$_ = $embeddedDoc->{$_}\n";
}