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