sub shuffle (\@) {
  my $d = shift;
  my @r = map rand, 0 .. $#$d;
  @$d[sort { $r[$a] <=> $r[$b] } 0 .. $#$d] = @$d;
}
[download]

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area)
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;