Select Code to Download

my $cnr = 0;
while ($cnr < 1) {
...
        $cnr++;
    }
}

my @delarray = ( 0 .. $total )
my $cnr = 0;
my @dlarray  = shuffle @delarray;
...
        $cnr++;
   }
}