perl -MList::Util=shuffle -le 'print join $/, shuffle 1 .. 10'