my $species; sub set_species { $speceis = shift; } sub get_species { $species; }