$ perl -le '%h = (1 .. 10);  print scalar %h'
    5/8

    $ perl -le '%h = (1 .. 12);  print scalar %h'
    5/8

    $ perl -le '%h = (1 .. 100); print scalar %h'
    33/64