#!/usr/bin/perl
use strict;
use warnings;

bla(1);

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