#!/usr/bin/env perl
use warnings;
use strict;

use XML::Simple qw/:strict XMLin/;
my $xmldata = XMLin 'FILENAME.xml', ForceArray=>[], KeyAttr=>{};

##</code><code>##

use Data::Dumper;
print Dumper($xmldata);