in reply to What is the fastest pure-Perl implementation of XXX?
$result = 1; $result *= $_ for 2..$end; [download]