use warnings;
use Benchmark;

use Inline C => Config =>
    BUILD_NOISY => 1;

use Inline C => <<'EOC';

void foo(AV * x) {
     dXSARGS;
     SV ** elem;
     int len, i;
     
     len = av_len(x) + 1;

     sp = mark;

     for(i = 0; i < len; i++) {
        elem = av_fetch(x, i, 0);
        XPUSHs(*elem);
     }

     PUTBACK;
     XSRETURN(len);
}

AV * bar(AV * x) {
     dXSARGS;
     SV ** elem;
     int len, i;

     sp = mark;

     len = av_len(x) + 1;

     for(i = 0; i < len; i++) {
        elem = av_fetch(x, i, 0);
        XPUSHs(*elem);
     }

     return x;
}

EOC

$len = 2000000;

@x = ();

for(1 .. $len) {push @x, $_}

timethese (1, {
 'ref'  => '$ret = bar(\@x)',
 'list' => '@ret = foo(\@x)',
});