Select Code to Download

sub new {
    my $i = 0;
...
        print "Number: $i\n"; last;
    }
}

         s/iter original      new
original   25.7       --     -63%
new        9.57     168%       --