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

##</code><code>##

my $f = @foo[0];
say $f.(2,9);

##</code><code>##

Not enough positional parameters passed; got 0 but expected 2