$ perl a.pl 1
$VAR1 = {
          'BILLING' => {
                       'RTN' => {},
                       'ACCOUNT' => {}
                     }
        };
<BILLING>
  <ACCOUNT></ACCOUNT>
  <RTN></RTN>
</BILLING>