perl -e'print splice@l,rand@l,1for@l=<>'