Select Code to Download

my $count = 10;
while ($count) {
...
   print "$count $_\n"; # $_ is the current array item
   $count = &something_complex;
}

my $count =0;
while(1) {
...
   $count = &something_strange
   last if (test_exit_condition); 
}