Select Code to Download

use strict;
use warnings;
...
print("time delta = ", $etime-$stime, "\n");

Dump(\@a, 1) if $ARGV[0];

$ ./perl -Ilib speed_test.pl 0
time delta = 0.623134136199951
...
    MAX = 9
    ARYLEN = 0x83ca280
    FLAGS = (REAL)

$ ./perl -Ilib speed_test.pl 0
time delta = 0.463121175765991
...
    MAX = 9
    ARYLEN = 0x0
    FLAGS = (REAL)

From c045b931b2afb3b2af6641a9943f65f295ee7da1 Mon Sep 17 00:00:00 2001
From: Eric Brine <ikegami@adaelis.com>
...

--
1.6.5

        dTARGET;
        SETi( AvFILL(MUTABLE_AV(av)) + CopARYBASE_get(PL_curcop) );

        SETs(sv_2mortal(newSViv(
            AvFILL(MUTABLE_AV(av)) + CopARYBASE_get(PL_curcop)
        )));