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