Select Code to Download

[me@host]$ perl -le 'sub foo { $_[0]++ } @x = (0,1); foo(@x); print "@
+x"'
1 1
...
[me@host]$ perl -le 'sub foo { $_[0]++ } @x = (0,1); foo(@{[ @x ]}); p
+rint "@x"'
0 1
[me@host]$

------------
:Wq
Not an editor command: Wq