Have you looked at alternative solutions, like using Tie::Handle::CSV to handle the data? While I don't know your use case, the data seems well constructed to be managed like that.