Select Code to Download

my %hits;
while( <> ) {
...
  $hits{ $key }++;
}
my @distinct = keys %hits;

my @hits;
my %seen;
...
  next if $seen{ $key }++;
  push @hits, $key;
}