Before using this code you should read Pure perl Jenkins 32 bit Hash.
In reply to Re^2: Fast string hash in portable perl? by huck in thread Fast string hash in portable perl? by jhanna