$x = 5; @a = ( $x ); $a[0] = 7; print $x; # prints 5