To make it change, force perl to make more buckets by adding more items to the hash.

Or tell perl that you are going to be adding more items to the hash.

perl -wle'%h=%ENV; print ~~%h; keys %h = 1000; print ~~%h'
[download]