Select Code to Download

$VAR1 = {
  'campaign' => {
    'menuid' => '10118',
...
    ]
  }
};

<campaign action="0" menuid="10118">
  <phonenumbers>
...
    <phonenumber number="9166413900" />
  </phonenumbers>
</campaign>

<campaign action="0" menuid="10118">
  <phonenumbers name="phonenumber" number="9163723752" />
  <phonenumbers name="phonenumber" number="9166413900" />
</campaign>

  print Dumper $xml_hash;
  my $xml_obj = XML::Simple->new( Keeproot => 1, ForceArray => 1);
  my $xmlo = $xml_obj->XMLout( $xml_hash );
  print $xmlo;