my %uids;
while (my $line = <$filehandle>) {
   my $uid = # extract from $line;
   if ($uids{$uid)) {
       print "'$uid' is duplicate\n"
   } else {
      $uids{$uid} = 1;
   }
}