my $name = "do";
sub do { print "I am doing it\n"; }
&$name;