my $x = 1;
print $x; # whoops $x has been modified: converted from int to string
$y = \$x; # whoops $x has been modified: its ref count has increased.