my $anon = sub {
   my $func = shift;
   my $count = shift;
   if ($count--) {
        print "Iterating\n";
        $func->($count);
   }
};

##</code><code>##

my $counter = sub { $anon->($anon, shift) };