sub Shuffle
{
  for (my $i = 0; $i < @_; $i++)
  {
    my $R = int(rand(@_));
    @_[$R, $i] = @_[$i, $R];
  }
  return 0;
}