bla(1);

sub bla{
  my $x=$_[0];
  print "bla: $x";
  blubb();
  sub blubb{
        print "  blubb: $x\n";
  }
  if ($x <= 5){bla(($x+1))}
}