my %remap;
  my @result;
  while ($K--) {
    my $x= int rand $N--;
    push @result, $remap{$x} // $x;
    $remap{$x}= $N;
  }