use Data::Dumper;

## ...

print Dumper \%species;