Subroutine Perl

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