I've taken your code and run it unchanged on my machine except for the addition of this line (push @dat, $dat[rand(@dat)]) just before the second seek. It does what I'd expect it to, reading in the file and writing it out again with a random line from the file appended.

I suggest you show the rest of your code, even though you don't think the problem lies there.

hdp.