sub generate_xml {
    my ($mapping) = @_;
    my $xml = '';

        foreach my $tag (sort keys %$mapping) {