Hmmm, doesn't always work:

  $ perl -wE '@h{1..shift}=(); say scalar %h;' 16384
  12812/32768
  $ perl -wE '@h{1..shift}=(); say scalar %h;' 32768
  20636/32768
[download]