Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
my $loop="2,4..5";
splice @$arr,$_,0,999 foreach map { /\.\./ ? $` .. $' : $_ } split /,/
+, $loop;
use Data::Dump 'dd'; dd $arr;

Select or download this
```
[1, 2, 999, 3, 999, 999, 4 .. 7]
```