# why code this (equiv: print $_, "\n" for 1 .. 10;) for my $i (1 .. 10) { print $i, "\n"; } # when you can code this? -- untested, no perl # on current box; probably doesn't do what # the above snippet does, but it's suppose to my $i = 0; ONE: { $i -= (8 - 2 * 2 - 2 * 4); # $i += 4 goto FOUR; TWO: { print $i; THREE: { print "\n"; 10 == $i ? exit() : goto ONE; FOUR: { $i += 3 * -1; # $i -= 3; goto TWO; } } } }