$name = "a";
&$name;
$name = "b";
&$name;

sub a {
    print "in sub a\n";
}

sub b {
    print "in sub b\n";
}