Select Code to Download

my %seen;
foreach my $addr ( @bigaddrlist ) {
...
} # foreach

my @deduped = keys %seen;

my %seen;
my @deduped;
foreach my $addr ( @bigaddrlist ) {
    push( @deduped, $addr ) unless $seen{$addr}++;
}