use v5.24;
use strict;
use warnings;
use utf8;
use open ':std', ':encoding(UTF-8)';

for my $i ( 1 .. 10) {
    {
        my $var = 'asdf';

        # tut was mit $Var

        next if $i == 5;
    }

    say "$i ist nicht fünf";
}