Select Code to Download

 sub popnum3 {
    my ( $x, $y, $z ) = @_;  # $_[3] is $zazb
...
    }
    return $aob[$x][$y];
}

sub popnum3 {
    my ( $x, $y, $z, $zazb ) = @_;
    if ( $y == 0 ) {
...
    }
    return $aob[$x][$y];
}