splice @arr, $from, $to-$from+1, map 1+$_, @arr[$from..$to];