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) { }
   },
});
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)