DB<104> $a=42; my $a=666; my $ra=\*a; print $$$ra
42