#!/usr/bin/perl
use strict;
use warnings;
use Benchmark qw(cmpthese);

cmpthese(-10,
    {
        forloop => sub {
            for (my $i = 0; $i < 500; ++$i)
            {
                my $x = 10*$i;
            }
        },
        eachloop => sub {
            for my $i (0..499)
            {
                my $x = 10*$i;
            }
        },
    });

__END__
           Rate  forloop eachloop
forloop  5513/s       --     -22%
eachloop 7075/s      28%       --