Select Code to Download

#!/usr/bin/perl
use strict;
...

sub comb_iter {
    my $items = shift || [];             # Think 1,2,3,4,5
...
    }
    return \@ret;
}

<edited tofit="your screen, for your viewing pleasure">

...
iterat 22395/s   168%    88%    41%    22%    21%    19%     --

</edited>