time perl -pe '$r = substr(rand(), 2); $_ = "$r\t$_"' input | sort -n | cut -f 2- > dev/null