#!/usr/bin/perl

use strict;
use warnings;

use XML::Simple qw(xml_in xml_out);

my $req = {
           Foo => {
                    Bar => 1,
                    Baz => [ 2 ],
                  },
          };

print xml_out($req);