my $sub1 = sub {
    my $sub2 = sub {
		my $boo = shift // 42;
        if ($boo==1) { goto GANZOBEN }
    };
	my $bar = shift;
    $sub2->( $bar * 2);
    print "zweiter Level\n";
};
$sub1->(.5);

GANZOBEN:
print "ganz oben\n";
exit();