Rate splicing  radiant
splicing 2371/s       --     -19%
radiant  2936/s      24%       --
##</code><code>##

C:\Perl\progs>perl -v
This is perl, v5.8.8 built for MSWin32-x86-multi-thread
<snip>
Binary build 817 provided by ActiveState
##</code><code>##

C:\Perl\progs>scratchpad.pl 6000 7000 10000
Array size: 10000
Inserting: 6000 .. 7000
           Rate splicing  radiant
splicing 28.1/s       --     -86%
radiant   198/s     603%       --
##</code><code>##

C:\Perl\progs>scratchpad.pl 60000 61000 100000
Array size: 100000
Inserting: 60000 .. 61000
           Rate splicing  radiant
splicing 2.87/s       --     -93%
radiant  42.7/s    1388%       --
##</code><code>##

use strict;
use warnings;
use Benchmark 'cmpthese';  

my ( $START, $END ) = @ARGV >= 2 ? @ARGV : ( 5000, 6000 );
my $SIZE = $ARGV[2] ? $ARGV[2] : 10000;

die "Bad input!\n" if $START > $END or $END > $SIZE;

my $TIMES = int 10_000_000 / $SIZE / 2;

print "Array size: $SIZE\n";
print "Inserting: $START .. $END\n";

sub insert1 {
  my ( $ra, $index, $elem ) = @_;
  @$ra = @$ra[0 ..$ index-1], $elem, @$ra[$index .. @$ra-1];
}

sub insert2 {
  my ( $ra, $index, $elem ) = @_;
  splice( @$ra, $index, 0, $elem );
}

cmpthese ( $TIMES, {
  radiant  => sub { my @ary = 1 .. $SIZE;
    insert1( \@ary, 1, $_ ) for $START .. $END },
  splicing => sub { my @ary = 1 .. $SIZE;
    insert2( \@ary, 1 ,$_ ) for $START .. $END },
} );