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