my @data;
my %seen;
for (@input) {
  next if $seen{$_}++;
  push @data,$_;
}