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

say @foo[0].(3,5);
say @foo[1].(3,5);
say @foo[2].(3,5);