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