Select Code to Download

$idx = 45; # pretend we've already found the insertion point
@a[$idx+1 .. $#a+1] = @a[$idx .. $#a];
$a[$idx] = $newitem;

$idxmove = $#a;
while ($idxmove >= $idx) {
...
  $idxmove--;
}
$a[$idx] = $newitem;