Select Code to Download

#! perl -slw
use strict;
...
$n++, push @{$freq{hash2( $_, 0)}}, $_ for 'AAAA' .. 'ZZZZ';
print $n, ':', scalar keys %freq;

c:\test>hash
456976 values resulted in 233710 unique hashes & a maximum of 34 first
+ pass collisions
...
1 trial of hash (195.751s total)

1 trial of hash2 (133.032s total)