sub generate_xml
{
        my(%mapping,$xml)=(%{$_[0]},'');

        foreach my $tag(sort keys %mapping)
        {
                #Subhash gefunden? Funktion mit diesem Subhash aufrufen.
                if(ref($mapping{$tag}) eq 'HASH')
                {
                        $xml.="<$tag>".generate_xml($mapping{$tag})."</$tag>";
                }
                else
                {
                        $xml.="<$tag>$mapping{$tag}</$tag>";
                }
        }
        return $xml;
}

print &generate_xml(\%hash);