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