my %saw; my @out = grep { ! $saw{$_}++ } @in;