Help for this page
use strict; use warnings; ... splice @$arr,$_,0,999 foreach(eval $loop); $, = ' '; print @$arr
1 2 999 3 999 999 4 5 6 7