Select Code to Download

my @foo = { state $n=-1; $n++; sub ($x,$y) { $x+$y+$n } } ... *;

my $foo_0 = @foo[0].(3,5);
my $foo_1 = @foo[1].(3,5);
my $foo_2 = @foo[2].(3,5);

10
10
10

8
9
10

my @foo = { state $n=-1; $n++; my $p=$n; sub ($x,$y) { $x+$y+$p } } ..
+. *;