How to run an anonymous function in Perl?

Question

(sub {
print 1;
})();



sub {
print 1;
}();

I tried various ways, all are wrong...

Answer 1

I'm endlessly amused by finding ways to call anonymous functions:

$foo = sub {say 1};

sub bar {goto $foo};
bar;

''->$foo; # technically a method, along with the lovely:

undef->$foo;

() = sort $foo 1,1; # if you have only two arguments

and, of course, the obvious:

&$foo();
$foo->();