[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 }); print "@x"'
1 1
[me@host]$ perl -le 'sub foo { $_[0]++ } @x = (0,1); foo(@{[ @x ]}); print "@x"'
0 1
[me@host]$ 

##</code><code>##

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