my @seen;
foreach my $target (@integer_data_set) {
    if(defined($seen[$target]) {
        print "Duplicate: $target\n";
        next;
    }
    $seen[$target] = 1;
    print "New: $target\n";
}