http://www.perlmonks.org?node_id=974606


in reply to referencing list

$ perl -le 'my @x=(1,2,3); (*a,*b,*c) = \(@x); $a="f"; $b="o"; $c="o"; + print @x' foo
-sauoq
"My two cents aren't worth a dime.";