Select Code to Download

my $cndiea = 0;
foreach my $del ( 0 .. $chntot ) {
...
       last;
    }
}

my $cndiea = 0;
foreach my $del ( 0 .. $chntot ) {
...
       }
   }
}