my $coderef = do {
  my $selfref;
  $selfref = sub {
    # use $selfref here for recursion
  };
};