Select Code to Download

>perl script.pl 50

...
              Rate mrborisguy    ikegami
mrborisguy  2167/s         --       -91%
ikegami    23688/s       993%         --   # With XS.

>perl script.pl 1700

...
             Rate mrborisguy    ikegami
mrborisguy 31.7/s         --       -96%
ikegami     722/s      2179%         --    # With XS.

use strict;
use warnings;
...
      ikegami    => sub { ikegami    \@data },
   });
}