123456789_123456789_123456789_123456789_123456789_123456789_1
perl -e'@l=<>;while(@l){$i=rand@l;print$l[$i];splice@l,$i,1}'