Select Code to Download

my $cnr = 2;
for my $xda ( shuffle 0 .. $total ) {
...
        last if --$cnr == 0;
   }
}

for my $xda ( shuffle 0 .. $total ) {
    if ( defined $aob[$xda][ $y - 1 ] ) {
...
        last;
   }
}