Select Code to Download

XS(XS_main_rand_ranged_value)
{
...
    }
    XSRETURN(1);
}

#! perl -slw
use strict;
...
        Rate  hash array
hash  3.88/s    --  -38%
array 6.23/s   61%    --

perl 
-nlE"++$h{ $_ } }{ say qq[$_ : $h{ $_ }] for sort{ $a <=> $b } keys %h
+" 
< theBigFileOfInts