$ perl -le 'my @x=(1,2,3); (*a,*b,*c) = \(@x); $a="f"; $b="o"; $c="o"; + print @x' foo [download]
In reply to Re: referencing list by sauoq in thread referencing list by pmilne