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

test: for (1..10) {
	{
		next test if ($_ == 3);
	}
	print "$_\n";
	# 3 wird übersprungen
}