#! /usr/bin/perl
use strict;
use warnings;
use 5.020;

my $limit = 100;

my $i = 0;
while ( 1 ) {

    $i = $i < 5 ? ++$i : 1;

    printf "i: %2d\n", $i;

    last    if 0 >= --$limit;
}
__END__