use Benchmark "timethese";

my @c = (1,2,3,4,5,6,7,8,9);
my @s = (1,2,3,4,5,6,7,8,9);
my $pos = 3;
my $new_elem = 100;

timethese(5000, {
COPY => sub {@c = (@c[0..$pos-1],$new_elem,@c[$pos..$#c])},
SPLICE=> sub {splice (@s, $pos, 0, $new_elem)},
});
print "\nAfter iters: size(\@copy): ", scalar @c, " and size(\@splice): ",
  scalar(@s), "\n";