perl -ne'splice@l,rand$.,0,$_}{print@l'