#!/bin/perl

$count = 0;
while (<>) {
  chop;
  if ($seen{"$_"}) {
    print "DUPLICATE VOTE $_\n";
    $count++;
  }
  $seen{"$_"} = 1;
}


printf  "done.   %d duplicate warning message%s issued!\n", $count,
 	($count == 1) ? "" : "s";