Call subroutine with parameter by using its reference
$codereference = sub {print shift}; &$codereference("Hello!\n");