my $zaehler = 0; bla(); sub bla{ my $var = $zaehler++; print "$var". "\n"; inbla(); sub inbla{ if($var<2){ bla(); } } }