Help for this page
my $cnr = 0; while ($cnr < 1) { ... $cnr++; } }
my @delarray = ( 0 .. $total ) my $cnr = 0; my @dlarray = shuffle @delarray; ... $cnr++; } }