perl -0x25 -MList::Util=shuffle -e '@f=<>;pop@f;print shuffle@f'