perl -0x25 -MList::Util=shuffle -e 'print +(shuffle<>)[0]'