$codereference = sub {print shift};

&$codereference("Hello!\n");