#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my @array = ('a','s','d','f','g','h','j','k');
my $i     = 3;
my $value = 'X';

print Dumper(\@array), "\n";
splice @array, $i, 0, $value;
print Dumper(\@array), "\n";