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

##</code><code>##

my %seen;
my @data = grep { ! $seen{$_}++ } @input;