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

##</code><code>##

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

##</code><code>##

10
10
10

##</code><code>##

8
9
10

##</code><code>##

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