sub sub1() {
    for my $count (0..2) {
        my $declension = 's' x ($count != 1);
        my $result = sprintf "$count iteration$declension so far...\n";
    }
}                                                                               

##</code><code>##

timethis 2000000: 52 wallclock secs (26.95 usr +  0.39 sys = 27.34 CPU) @ 73152.89/s (n=2000000)
timethis 2000000: 38 wallclock secs (25.47 usr +  0.34 sys = 25.81 CPU) @ 77489.35/s (n=2000000)