sub popnum3 {
    my ( $x, $y, $z, $mean ) = @_;
    $aob[$x][$y] = $mean * ( 1 + $z );
    return $aob[$x][$y];
}