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;