sub new
{
    my $class = shift;
    return bless($Person::list,shift);
}