perl -e 'for (0..100){$randhash{int (rand() * 100)} += 1}; print join qq|\n|,sort {$a<=>$b} keys %randhash;'