sub xml_output {
    my ($output, $tag, $fh,$i) = @_;