Select Code to Download

use strict;
use XML::Simple;
...
   print $doc->{species}->{$key}->{'common-name'} . ' (' . $key . ') '
+;
   print $doc->{species}->{$key}->{conservation}->{status} . "\n";
}

<?xml version="1.0"?>
<camelids>
...
    </conservation>
  </species>
</camelids>