You show code, but you don't explain how the code you have relates to the problem you state. Please help us help you better by explaining in prose what the code you have should do, and what it does, and how the two differ.

Maybe consider looking at Tie::File to treat a file like an array. Or at File::Inplace or at the $^I special variable.