You can't know an ID is unique until you've finished reading the file.

my (%count, %unique);
while (<IN>) {
  print DUP if $count{$_}++;
  if ($count{$_} == 1) { $unique{$_} = 1 }
  else { delete $unique{$_} }
}
print UNQ for sort keys %unique;
[download]

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area)
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;