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