sub a {
    print "abc";
}

$a = \&a;
&{$a}; # call a, and prints abc