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

my @deduped = keys %seen;

##</code><code>##

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