perl -MList::Util=shuffle -E "say shuffle 1..5"