use strict;
use XML::Simple;

my $file = 'files/camelids.xml';
my $xs1 = XML::Simple->new();

my $doc = $xs1->XMLin($file);

foreach my $key (keys (%{$doc->{species}})){
   print $doc->{species}->{$key}->{'common-name'} . ' (' . $key . ') ';
   print $doc->{species}->{$key}->{conservation}->{status} . "\n";
}

##</code><code>##

<?xml version="1.0"?>
<camelids>
  <species name="Camelus bactrianus">
    <common-name>Bactrian Camel</common-name>
    <physical-characteristics>
      <mass>450 to 500 kg.</mass>
      <appearance>
        The most noticeable ...
      </appearance>
    </physical-characteristics>
    <natural-history>
       <food-habits>
         Camels are herbivores...
       </food-habits>
       <reproduction>
         Mating season occurs ... 
       </reproduction>
       <behavior>
         Domestic camels ...
       </behavior>
       <habitat>
         The camel's habitat ...
       </habitat>
    </natural-history>
    <conservation status="endangered">
      <detail>
        Camels were thought ...
      </detail>
    </conservation>
  </species>
</camelids>