sub printem
{
    print "Hello!\n";
}

$codereference = *printem{CODE};

&$codereference;