@s = qw(1 2 3 4 5 6 7 8 9);
$x = 16;
$i = 4;
splice(@s, $i, 0, $x);
print join(' ', @s) . "\n";

1 2 3 4 16 5 6 7 8 9