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

##</code><code>##

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