Select Code to Download

use strict;
use warnings;
...
    return $iter;

}

4: 3: 2: 1: 0: 
3: 2: 1: 0: 
2: 1: 0: 
1: 0: 
0:

while ( countdown $limit => my $a ) {
    ....
}