Use Tie::File, sort your index file by line number and then do the replacement. That way, you will progress forward through your large file once without having to start over from the beginning.