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

##</code><code>##

1
1

##</code><code>##

perldoc -f sort
perldoc perlvar

##</code><code>##

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.