use Data::Dump;
use XML::Simple;
dd XMLin('document.xml');

##</code><code>##

{
  latin_name => "Fraxinus Excelsior",
  name => "Ash",
  uses => {
    use => [
             { description => "Furniture making" },
             { description => "Firewood" },
           ],
  },
}

##</code><code>##

#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dump;
use XML::Simple;

dd XMLin(<<EOX);
<root>
    <name>Ash</name>
    <latin_name>Fraxinus Excelsior</latin_name>
    <uses>
        <use>
            <description>Furniture making</description>
        </use>
        <use>
            <description>Firewood</description>
        </use>
    </uses>
</root>
EOX