Help for this page

Select Code to Download

Select or download this

$ perl -le '@x = qw(1 2 3); $x = 1; *y = *x; undef @x; print "$y [@y]"
+'
1 []

Select or download this

$ perl -le '@x = qw(1 2 3); $x = 1; *y = *x; undef *x; print "$y [@y]"
+'
1 [1 2 3]