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