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

sub printem
{
    &{@_[0]};
}

printem \&printhello;