use Data::Dumper qw(Dumper);

my $data = XMLin($xml);

print Dumper($data);