Howdy!

I'll take a whack at it...

If you say

package Employee;
use Person;
use Gender;
@ISA = qw/Person Gender/;
[download]

you are saying that an Employee is both a Person and a Gender.

You probably want something where Gender is an attribute of Person or Employee. Something like:

package Person;
use Gender;

sub new
{
   ...
   $self->{gender} = Gender->new;
   ...
}
[download]

Now, Persons have among their attributes a Gender. But a Person is not a Gender. HAS-A versus IS-A.

yours,
Michael