$var = "func1";

#call $var;



sub func1
{
    print "here";
}