my $zaehler = 0;
bla();

sub bla{
    my $var = $zaehler++;

    local *inbla = sub {
        if($var<2){
            bla();
        }
    }

    print "$var". "\n";
    inbla();
}