perl -MList::Util=shuffle -e 'print "@{[shuffle(1..10)]}"'