Select Code to Download

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

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