$ perl5.12.3 -we '$rand{ rand() }++ for 1..2**22; print int keys %rand'
4194304
$ perl5.18.1 -we '$rand{ rand() }++ for 1..2**22; print int keys %rand'
4194304