...
tie @array, 'Tie::File', "$inputfile";
...
for (@array){ ...
splice @array, $pos, 0, "$lottorec";
...