$x{ int( rand 100000 ) }++ for 1 .. 1000000;;
print "$_ => $x{ $_ }" for sort{ $a <=> $b } keys %x;;
0 => 45
3 => 30
6 => 31
9 => 32
12 => 30
15 => 27
18 => 24
21 => 20
24 => 22
27 => 23
30 => 36
...