#!/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