my $tmp = $parse->parse($address); 

##</code><code>##

use strict;
use warnings;
use XML::Parser;
use Data::Dumper;
my $parse = new XML::Parser(Style => 'Objects');
my $address = "<LOC><HNO></HNO><STN>Eagle Way</STN><MCN>Gotham City</MCN></LOC>";
print Dumper $parse->parse($address);

##</code><code>##

C:\tmp>test.pl
$VAR1 = [
          bless( {
                   'Kids' => [
                               bless( {
                                        'Kids' => []
                                      }, 'main::HNO' ),
                               bless( {
                                        'Kids' => [
                                                    bless( {
                                                             'Text' => 'Eagle Way'
                                                           }, 'main::Characters' )
                                                  ]
                                      }, 'main::STN' ),
                               bless( {
                                        'Kids' => [
                                                    bless( {
                                                             'Text' => 'Gotham City'
                                                           }, 'main::Characters' )
                                                  ]
                                      }, 'main::MCN' )
                             ]
                 }, 'main::LOC' )
        ];

##</code><code>##

use strict;
use warnings;
use XML::Simple;
use Data::Dumper;
my $address = "<LOC><HNO></HNO><STN>Eagle Way</STN><MCN>Gotham City</MCN></LOC>";
my $ref = XMLin($address);
print Dumper $ref;

##</code><code>##

C:\tmp>test.pl
$VAR1 = {
          'MCN' => 'Gotham City',
          'HNO' => {},
          'STN' => 'Eagle Way'
        };