Select Code to Download

100 lines/100 iterations:
          Rate bitwise  ifchop
...
        s/iter bitwise  ifchop
bitwise   3.06      --    -23%
ifchop    2.37     29%      --

          Rate  ifchop bitwise
ifchop  4.22/s      --    -87%
bitwise 33.3/s    690%      --

#!/usr/bin/perl -w
use strict;
...
         { bitwise => $bitwise,
           ifchop  => $ifchop,
         });