my %seen;
@out = map !$seen{$_}++, @in;