perl -e 'for (1..5) {print int rand 2000, "\n"}' | sort -n
