[0]{} Perl> undef %rands;;
[0]{} Perl> ++$rands{ int( 101 * rand )/100 } for 1 .. 1000000;;
[0]{} Perl> print "$_: ", $rands{ $_ } for sort{ $a <=> $b } keys %rands;;
0:  9946
0.01:  9935
0.02:  9945
0.03:  9872
0.04:  9784
0.05:  9809
0.06:  9969
0.07:  9805
0.08:  9973
0.09:  9831
0.1:  9840
0.11:  9982
0.12:  9956
0.13:  9982
0.14:  9895
0.15:  9760
0.16:  9898
0.17:  9934
0.18:  10110
0.19:  9944
0.2:  9918
0.21:  10000
0.22:  9903
0.23:  9834
0.24:  9895
0.25:  9865
0.26:  9891
0.27:  9947
0.28:  10020
0.29:  9882
0.3:  9842
0.31:  9907
0.32:  9814
0.33:  9936
0.34:  9956
0.35:  9951
0.36:  9920
0.37:  9919
0.38:  9941
0.39:  9996
0.4:  9753
0.41:  10008
0.42:  9873
0.43:  9868
0.44:  9886
0.45:  9865
0.46:  9706
0.47:  9788
0.48:  9957
0.49:  9674
0.5:  9838
0.51:  9963
0.52:  9835
0.53:  9795
0.54:  9940
0.55:  9949
0.56:  9963
0.57:  9893
0.58:  9841
0.59:  9937
0.6:  9860
0.61:  9930
0.62:  9918
0.63:  10039
0.64:  9990
0.65:  9843
0.66:  9853
0.67:  9673
0.68:  9944
0.69:  9953
0.7:  9971
0.71:  9760
0.72:  9966
0.73:  9868
0.74:  9850
0.75:  9832
0.76:  9900
0.77:  9910
0.78:  9873
0.79:  10121
0.8:  9938
0.81:  9997
0.82:  10018
0.83:  9855
0.84:  9919
0.85:  9923
0.86:  9968
0.87:  9894
0.88:  10014
0.89:  9967
0.9:  9811
0.91:  9857
0.92:  9740
0.93:  9807
0.94:  10066
0.95:  9949
0.96:  9857
0.97:  9755
0.98:  9932
0.99:  9924
1:  9916