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

my @deduped = keys %seen;