@array = sort @array;
my $j = -1;
for my $e (@array) {
  if ($j < 0 || $array[$j] ne $e) {
    $array[++$j] = $e;
  }
}
$#array = $j;