for (my $i = 1; $i <= 10; $i++) {
     print "$i\n";
     if ($i == 5) {
          print "i ist 5.\n";
     }
}