$x = 10;
@x = qw(1 2 3);

*y = *x;
$x = 12;
print $y;  # <- Prints 12

undef $x;
print $y;  # <- Warns "Use of uninitialized value in..."