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

##</code><code>##

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