bla(1);

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