sub subroutine
{
    print "Hello!\n";
}
$codereference   = \&subroutine;
&$codereference;