$codereference = sub {100};

$s = &$codereference;


print $s;