Select Code to Download

Loops with print (I used a NULL device to keep it clear, s.below):
              Rate foreach_loop   c_for_loop
...
               Rate   c_for_loop foreach_loop
c_for_loop   1314/s           --         -22%
foreach_loop 1674/s          27%           --

#! perl
use strict;
...
        1;
    }
}