Select Code to Download

my @y = map { state $z = 0; $z += $_ } @x;

>perl -wMstrict -MData::Dump -lE
"sub summer { return map { state $z = 0;  $z += $_; } @_; }
...

----------
[0, 1, 3, 2]