use strict;
use Benchmark;

timethese(10, {
   'c-style'    => sub {
      for (my $i = 0; $i < 1_000_000; $i++) { }
   },
   'list style' => sub {
      for my $i (0..1_000_000) { }
   },
});