next if /^\s*$/;

##</code><code>##

use Data::Dumper;

## ...

print Dumper \%species;

##</code><code>##

.