Read the existing number from the file, seek to the file's beginning and write back the new number. However, I really think those are gory details that would much better be hidden in a tied hash; Tie::TextDir may not be what you want, but you can always roll your own.

--
mowgli