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

MARKE:
for my $i ( 1 .. 10) {
    next Marke if $i == 5;

    say "$i ist nicht fünf";
}
$ perl label.pl 
1 ist nicht fünf
2 ist nicht fünf
3 ist nicht fünf
4 ist nicht fünf
Label not found for "next Marke" at label.pl line 9.