sub outer { ... local our $helper; $helper = sub { ... $helper->(...); ... }; $helper->(@_); }