sub shuffle {
  my @r = map rand, 0 .. $#_;
  @_[sort { $r[$a] <=> $r[$b] } 0 .. $#_] = @_;
}