sub set_species {
        my ($self, $species) = @_;
        $self -> {speceis} = $species;
    }
    sub get_species {
        my ($self) = @_;
        $self -> {species};
    }