Select Code to Download

use strict;
use warnings;
...
my $ref = XMLin( $xml );
print Dumper($ref);
print XMLout( $ref, RootName=>"Data" );

<Data>
  <Root1 name="TBLA">
...
    </NEW2>
  </Root1>
</Data>