my %seen;
foreach my $target (@string_data_set) {
    if (exists($seen{$target}) {
        print "Duplicate: $target\n";
        next;
    }
    $seen{$target} = 1;
    print "New: $target\n";
}