Select Code to Download

$x = 10;
@x = qw(1 2 3);
...
undef $x;
print $y;  # <- Warns "Use of uninitialized value in..."