for (my $i = 0; $i < 1000; ++$i) と for ( 1 .. 1000 )
は後者の方が早いって隣の隣の方が言ってたので確認しておきました。
use strict; use warnings; use Benchmark qw/:all/; cmpthese(-1, { c => sub { for (my $i = 0; $i < 1000; ++$i) { } }, array => sub { for ( 1 .. 1000 ) { } }, });
Rate c array c 21333/s -- -29% array 30118/s 41% --