Select Code to Download

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

#!/usr/bin/perl
use strict;
...
   print " ($key) ";
   print "\n";
}

print $doc->{species}->{$key}->{'physical-characteristics'}[0];

print $doc->{species}->{$key}->{'physical-characteristics'}['mass'];