for my $i ( 1 .. 10) {
	my $var = 'a'.$i;
	say "aussen oben: $var";
    if (1) {
        my $var = 'asdf'.$i;
		say "innen: $var";
        # tut was mit $Var
        next if $i == 5;
    }
	say "aussen unten immernoch: $var";
    say "$i ist nicht fuenf";
}