sub outer {
  ...
  my $helper;
  $helper = sub {      # $helper references helper sub
     ...
     $helper->();      # helper sub references $helper
     ...
  };
  ...
}