Select Code to Download

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

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

C:\tmp>test.pl
$VAR1 = [
...
                             ]
                 }, 'main::LOC' )
        ];

use strict;
use warnings;
...
my $address = "<LOC><HNO></HNO><STN>Eagle Way</STN><MCN>Gotham City</M
+CN></LOC>";
my $ref = XMLin($address);
print Dumper $ref;

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