Counting the collisions with perl hash tables per function