use strict;
use warnings;
use XML::Simple;
use Data::Dumper;
my $xml_input = qq{<Body><Foo>Bar</Foo></Body>};
my $xml_simple = XML::Simple->new(KeepRoot => 1, KeyAttr => 1, ForceArray => 1);
my $result = $xml_simple->XMLin($xml_input);
print "\nParsed xml with output as reference..", Dumper($result);
my $result_xml = $xml_simple->XMLout($result);
print "\nConstructed xml using reference..", $result_xml;