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

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