use strict;
use warnings;
my $arr=[1,2,3,4,5,6,7];
my $loop="2,4..5";
splice @$arr,$_,0,999 foreach(eval $loop);
$, = ' ';
print @$arr

##</code><code>##

1 2 999 3 999 999 4 5 6 7