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.";
"My two cents aren't worth a dime.";
In Section
Seekers of Perl Wisdom
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