Subroutine Perl

sub printhello
{
    print "Hello!\n";
}
sub printem
{
    &{@_[0]};
}
printem \&printhello;