sub foo { # block startet hier ... } # block endet hier for my $elem (@array) { # block startet hier ... } # block endet hier do { # block startet hier ... }; # block endet hier { # block startet hier ... } # block endet hier