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