#!/usr/bin/perl -w
use strict;
use warnings;
use diagnostics;

for (1..10) {
	{
		next if ($_ == 3);
	}
	print "$_\n";
	# 3 soll eigentlich
	# übersprungen werden
}