perl -ne'@=[~~@=,$=]=($=[$==rand$.],$_)}{print@='