Subroutine Perl

$codereference = sub {print shift};
&$codereference("Hello!\n");