Select Code to Download

use strict("refs"); 
or simply
use strict;

$a = 666;
$b = 888;
...
$name = "b";
print $$name, "\n";

$name = "a";
&$name;
...
sub b {
    print "in sub b\n";
}