my $xml = XML::Simple->new(XMLDecl=>1,KeepRoot=>1) ;
    my $xml_data = $xml->XMLout($arg{data});