my %hash;
for (@species) {
    $hash{$_}++;
}
print "Number of different species: ", 0+(keys %hash), "\n";
for (sort keys %hash) {
    print "$_: ", $hash{$_}, "\n";
}