Select Code to Download

my @data;
my %seen;
...
  next if $seen{$_}++;
  push @data,$_;
}

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