123456789 123456789 123456789 123456789 12345
perl -e'@l=<>;print splice@l,rand@l,1while@l'

##</code><code>##

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