Select Code to Download

use strict;
use warnings;
...
    # print "@array\n";
    print join ('', @array), "\n";
}

sub iter {
    my $zero  = shift || 3;
...
while (my $str = $i->()) {
    print "$str\n";
}

    $cand < $#array - 1 and
         @array[$cand+1..$#array] = reverse @array[$cand+1..$#array];