sub outer {
   ...

   my $inner;
   $inner = sub {
      ...
      $inner->(...);
      ...
   };

   $inner->(...);
}