Select Code to Download

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

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