Select Code to Download

            $zaza = $aob[$x][$y];

    return $aob[$x][$y];

sub popnum1 {
    my( $x, $y, $z ) = @_;
...
        }
    }
}

sub popnum1 {
    my( $x, $y, $z ) = @_;
...
            ? $initial + $z
            : $z + $aob[$x][ $y - 1 ];
}