duh! ok, so I changed the code to the following (by the way, am I the only one interested in playing around with Inline)? :

#! /usr/bin/perl -w

use strict;
use Benchmark;

my @a = (1..500000);

use Inline C => <<'ADDUP_END';
double addup( SV* stub, ... ) {
    double total = 0;
    int i;
    Inline_Stack_Vars;
    for( i = 0; i < Inline_Stack_Items; ++i ) {
        total += SvNV(Inline_Stack_Item(i));
    }
    return total;
}
ADDUP_END

timethese shift || 100, {
        '$_' => sub {
                my $count = 0;
                foreach( @a ) {
                        $count += $_;
                }
        },
        'my' => sub {
                my $count = 0;
                foreach my $var( @a ) {
                        $count += $var;
                }
        },
        'Inline' => sub {
                my $count = addup( @a );
        },
};

[download]

now I see around a 7% gain in favour of lexicals (i.e., barely above the noise level). It's not the 25% I was expecting. Heh, the Inline method is close to an order of magnitude faster!

update: tip o' the hat to Hofmator for spotting an orphan $rec.

update 2001-08-06: in my travels through the older nodes in the monastery, I encountered another thread that deals with a similar topic: is 'my' that much faster than 'local'?. It may be of interest.

--
g r i n d e r

In reply to Re:x2 The speed of $_ versus a lexical by grinder
in thread The speed of $_ versus a lexical by grinder

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.