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