undef %saw;
$saw{$_}++
  for @in;
@out = keys %saw;