...
while (<IN>) {
    $seen{$_}++;
}

foreach my $id (sort keys %seen) {
    if ( $seen{$id} == 1 ) {
        print UNQ "$id\n";
    }
    else {
        print DUP "$id\n";
    }
}
...