Ich kenne XML::Simple kaum, aber ...

<geraten type="wild">
Schon mal mit print XML $xml statt print XML $struct probiert? ;)
</geraten>