sub named_or_anon {
   my $x;
   sub named {
      ... $x ...
   }
}