splice @array, rand(1+@array ), 0, $_ for map{ /^..(.*$)/ } <DATA>;