for my $value (1..10) {
  print "Before: $value\n";
  { # block, also acts as loop
    print "inside1: $value\n";
    if( $value % 2 == 0 ) {
      print "inside2: $value -> skip\n";
      next; # bezieht sich nur auf block, nicht auf for
    } # if
    print "inside 3: $value\n";
  } # block
  print "after: $value\n";
} # for