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

##</code><code>##

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