$foo = 42; @foo = ( 1, 2, 3 ); *bar = *foo; print "$bar @bar"; undef *bar; print "$bar @bar";