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