my ($x,$y);
$x=$x+1; # throws warning
$y+=1;   # no warning