Select Code to Download

use strict;
use warnings;
...
splice @$arr,$_,0,999 foreach(eval $loop);
$, = ' ';
print @$arr

1 2 999 3 999 999 4 5 6 7