Select Code to Download

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

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

Not enough positional parameters passed; got 0 but expected 2