use Benchmark 'cmpthese';

#16777216

cmpthese(
9000,
#-3,
{
    'c-style' => sub {
            for my $num (0 .. 1000) {}
            return();
     },
    'rangefor' => sub {
            for( my $num = 0; $num < 1000; $num++) {}
            return();
     },
});

__END__

Benchmark: running c-style, rangefor, each for at least 3 CPU seconds...
   c-style:  4 wallclock secs ( 3.20 usr +  0.00 sys =  3.20 CPU) @ 6494.54/s (n=20802)
  rangefor:  3 wallclock secs ( 3.27 usr +  0.00 sys =  3.27 CPU) @ 3793.02/s (n=12388)
           Rate rangefor  c-style
rangefor 3793/s       --     -42%
c-style  6495/s      71%       --

Benchmark: timing 9000 iterations of c-style, rangefor...
   c-style:  1 wallclock secs ( 1.44 usr +  0.00 sys =  1.44 CPU) @ 6258.69/s (n=9000)
  rangefor:  3 wallclock secs ( 2.39 usr +  0.00 sys =  2.39 CPU) @ 3765.69/s (n=9000)
           Rate rangefor  c-style
rangefor 3766/s       --     -40%
c-style  6259/s      66%       --