package Person;
use Gender;

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