use strict;
use warnings;

my $arrayref = ['a', 'b', 'c', 'd', 'e', 'f'];
splice(@$arrayref, 1, 2);  # remove 2 items, starting at index 1
print "@$arrayref\n";

my @replacements = ('x');
splice(@$arrayref, 1, 1, @replacements); # replace 1 item, staring at 
+index 1
print "@$arrayref\n";

my @insert = ('l');
splice(@$arrayref, 3, 0, @insert); # replace 0 items (i.e. doing an in
+sert), staring at index 3
print "@$arrayref\n";
[download]