sub RandomiseArray {
  my @a=@_;
  my @b=();
  while (scalar @a) {
    push(@b,splice(@a,int(rand @a)));
  }
  return(@b);
}