perl -E"my @a; $a[$_]=rand for 1..1e6; <>; @a = sort @a; <>"