Subroutine Perl

$codereference = sub {100};
$s = &$codereference;
print $s;