@a = ('a' .. 'i');               # 9 lower case letters
print "Before: @a\n";            # prints: a b c d e f g h i
@r = ('X', 'Y', 'Z');            # this is what we'll replace with...

@x = splice @a, 3, 2, @r;        # Bazaam!

print "After: @a\n";             # prints: a b c X Y Z f g h i
print "Pulled out: @x\n";        # prints: d e

##</code><code>##

@x = splice @a, 3, 2, 'X', 'Y', 'Z';

##</code><code>##

@x = splice @a, 3, 2;

##</code><code>##

@x = splice @a, 3;

##</code><code>##

@x = splice @a, 3, -2;

##</code><code>##

Before: a b c d e f g h i
After: a b c h i
Pulled out: d e f g

##</code><code>##

@x = splice @a, 3, -2, @r;

##</code><code>##

@x = splice @a, -5, -1, @r;     

##</code><code>##

@x = @a[2..5];

##</code><code>##

@x = @a[2, 3, 4, 5];

##</code><code>##

@x = ($a[2], $a[3], $a[4], $a[5]);