@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