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

##</code><code>##

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