#!/usr/bin/perl

use strict;
use Benchmark qw(:all);

cmpthese(10, {
    'eq'    =>  sub {
        for (my ($i, $j) = (0, 0); $i < 1_000_000; $i++) {
            $j++ if ($i % 3) eq 2;
        }
    },
    '=='    =>  sub {
        for (my ($i, $j) = (0, 0); $i < 1_000_000; $i++) {
            $j++ if ($i % 3) == 2;
        }
    },
});

__END__
Benchmark: timing 10 iterations of ==, eq...
        ==: 28 wallclock secs (27.91 usr +  0.00 sys = 27.91 CPU) @  0.36/s (n=10)
        eq: 36 wallclock secs (36.16 usr +  0.01 sys = 36.17 CPU) @  0.28/s (n=10)
   s/iter   eq   ==
eq   3.62   -- -23%
==   2.79  30%   --