Select Code to Download

while (1) {
    my $xda = int rand (0 .. $total);
    if ( $aob[$xda][ $y - 1 ] ne q{}) {
...
        last;
    }
}