Select Code to Download

sub reduce(&@) {
   my $f = shift;
...
   $b = shift(@args), $a = &$f while @args;
   return $a;
}

          Rate ike1_p ike1_n ike2_p ike1_i ike2_i ike2_n
ike1_p 6.34/ms     --    -2%    -2%    -4%    -6%     -7%
...
(I)nline:        reduce { $a * $b }     1..100;
(P)rototype:     reduce \&prototyped,   1..100;
(N)o prototype:  reduce \&unprototyped, 1..100;

ikegami1_i  1  ok
ikegami1_n  1  ok
...
ikegami2_n 6.79/s         7%         5%         4%         2%         
+1%         --

Multiply by 1000 to get real rate.

use strict;
use warnings;
...
}

print("Multiply by $INNER to get real rate.\n");