while (<DUPLICATE>) {
  print DUPremoved if not $lines{$_}++;
}