my @array = qw(3 1 4 1 5 9 2 6 5 4);
my $offset = 5;
my $value = 'abc';
print "before:  @array\n";
splice @array, $offset, 0, $value;
print " after:  @array\n";