my %seen;
while (my $line = <PFILE>) {
   @ID = split(/:/, $line);
   my $id = $ID[0];
   if ($seen{lc($id)}++) {
       print "'$id' is duplicate\n";
   }
}