perl -e'print splice@l,rand@l,1for@m=@l=<>' t.txt