$name=chr(97);
$$name=1;   # shall set $a to 1
print "$$name\n";
print "$a\n";