sub outer { my @helper; local $helper[0] = sub { ... }; $helper[0]->(@_); }