P:\test>perl -MList::Util=reduce -MBenchmark=timethis 
-le" timethis -1, q[ our $t=reduce{ $a + $b } 1 .. 10000; ]; print $t"
timethis for 1:  1 wallclock secs 
( 1.04 usr +  0.00 sys =  1.04 CPU) @ 35.54/s (n=37)

50005000

P:\test>ren \lib\auto\List\Util\Util.dll *.lld

P:\test>perl -MList::Util=reduce -MBenchmark=timethis 
-le" timethis -1, q[ our $t=reduce{ $a + $b } 1 .. 10000; ]; print $t"

timethis for 1:  1 wallclock secs 
( 1.19 usr +  0.00 sys =  1.19 CPU) @ 10.07/s (n=12)

50005000