sub outer {
  my $lexical = ...;
  ...
  my $inner = sub { ...; access $lexical; ... };
  ...
  $inner->(...);
  #or even
  return $inner;
}