perl -e'map{splice@l,rand@l+1,0,$_}<>;print@l'

##</code><code>##

perl -e'splice@l,rand@l+1,0,$_ for<>;print@l'

##</code><code>##

perl -e'print sort{4-rand 9}<>'