sub popnum3 {
    my ( $x, $y, $z, $zazb ) = @_;
    if ( $y == 0 ) {
        $aob[$x][0] = $initial * ( 1 + $z );
    }
    else {
        while (1) {
            my $xda = int rand( $total + 1 );
            
            if ( substr( $zazb, $xda, 1 ) eq 'c' ) {
                $aob[$x][$y] = $aob[$xda][ $y - 1 ] * ( 1 + $z );
                last;
            }
        }
    }
    return $aob[$x][$y];
}