#!/usr/bin/perl
use strict;
use XML::Simple;

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

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

foreach my $key (keys (%{$doc->{species}})){
   print $doc->{species}->{$key}->{'common-name'}[0];
   print " ($key) ";
   print "\n";
}