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