@fields = split($_,/\|/); isn't doing what you expect it to. Try reversing the arguments. Then run the script again and see if you see a similar slow-down. Depending on how fast %PostCodeStrings grows, you're going to be seeing some slow-down, but it may be insignificant once you're splitting records correctly.