my $i=0;

for ( 1 .. 1_000 ) {
  # mach irgendwas
  # vielleicht auch mit $i
  $i++;


  # hängt von dem ab, was in der Schleife so alles mit $i passiert
  $i = 1   if $i >= 5;
}