#1 $a = 10; *b = *a; $a = 4; print $b; # <- prints 4 #2 $a = 10; *b = *a; undef *a; $a = 4; print $b; # <- prints 10!