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