How to run an anonymous function in Perl?

Question

(sub {
print 1;
})();



sub {
print 1;
}();

I tried various ways, all are wrong...

Answer 1

You might not even need an anonymous function if you want to run a block of code and there is zero or one input. You can use map instead.

Just for the side effect:

map { print 1 } 1;

Transform data, take care to assign to a list:

my ($data) = map { $_ * $_ } 2;