sub birth {
    my (@birthage, @birthgender);
    for my $i (0..$n){
        $birthage[$i]=0;
        $birthgender[$i]=1;
    }
    return(\@birthage, \@birthgender);
}