According to the docs, the following should force it to be a node:

$xml->{Body} = { Foo => 'Bar' };
$xml->{Body}{Foo}->set_node(1);
[download]

Otherwise, there are heuristics like there being newlines (\n) in the content, that determine whether a node or an attribute is being created...  Cheers.