Select Code to Download

while (1) {
   ...
}

my @a;
while (my $val = <>) {
   chomp $val;
   push @a, $_ if !grep $_ eq $val, @a;
}

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