Listing 1.
 
Dan Schmidt
"Building a Better Hash"
The Perl Journal, Summer 1999
 
Benchmark: timing 5000 iterations of RndHash1, hash...
 RndHash1:  1.22 CPU secs ( 1.19 usr +  0.03 sys)
     hash: 22.04 CPU secs (22.03 usr +  0.01 sys)