Update some perl magic numbers, like in the tcl code. This doesn't actually do anything since the string should be unique either way but should be more correct.