while (1) {
            my $xda = int rand $total + 1;
            if ( defined $aob[$xda][ $y - 1 ] ) {
                $aob[$x][$y] = $z + $aob[$xda][ $y - 1 ];
                last;
            }
        }