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