Data Type Perl

sub printem
{
    print "Hello!\n";
}
$codereference = *printem{CODE};
&$codereference;