mycroftxxx@holmes-iv.luna.fre (Mike) (12/17/90)
#!/usr/local/perl srand(time); @v = <>; for ($i = $#v; $i; $i--) { $j = int(rand($i+1)); ($v[$i], $v[$j]) = ($v[$j], $v[$i]); } print @v;