undef %saw;
@out = grep(!$saw{$_}++, @in);