$ perl -wE 'sub list { 1, 2}; sub enum(\@@) { @_[1,2] = (1, 2)}; enum my @a, state ($x, $y); say $x, $y'
12

##</code><code>##

$ perl -wE 'sub list { 1, 2}; sub enum { @_[0,1] = (1, 2)}; enum my @a, state ($x, $y); say $x, $y'
12