use strict;
{
    my $coderef;
    ($coderef = sub { ... $coderef->(...) ...)->(args);
}