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