c_for_and_iterator_speed.pl

#!/usr/bin/env perl

use strict;
use warnings;

use Time::HiRes qw(time);

sub bench(&) {
    my $start = time;
    shift->();
    print time - $start . " sec.\n";
}

bench {
    my @a = (1..1_000_000);
    my $size = @a;
    my $sum;
    for (my $i = 0; $i < $size; $i++) {
        $sum += $a[$i];
    }
};

bench {
    my @a = (1..1_000_000);
    my $sum;
    for my $a (@a) {
        $sum += $a;
    }
};