F:\dev\>perl -MXML::Dumper -e"print XML::Dumper->new()->pl2xml({ {a,bless
{}, 'Foo'},{1,[1,2,3]}})"
<perldata>
 <hash>
  <item key="HASH(0x17655c4)">
   <hash>
    <item key="1">
     <array>
      <item key="0">1</item>
      <item key="1">2</item>
      <item key="2">3</item>
     </array>
    </item>
   </hash>
  </item>
 </hash>
</perldata>

F:\dev\>perl -MData::DumpXML=dump_xml -e"print dump_xml({ {a,bless {}, 'Fo
o'},{1,[1,2,3]}})"
<?xml version="1.0" encoding="US-ASCII"?>
<!DOCTYPE data SYSTEM "dumpxml.dtd">
<data>
 <ref>
  <hash>
   <key>HASH(0x17655a8)</key>
    <ref>
     <hash>
      <key>1</key>
       <ref>
        <array>
         <str>1</str>
         <str>2</str>
         <str>3</str></array></ref>
     </hash></ref>
  </hash></ref></data>

F:\dev\>