my( %keys, %dup );
while (<STDIN>)
{
   chomp;
   if ( /PROBABLECAUSE\w*\((\d+),\s*\w*,\s+(\w*)/ )
   {
      my( $id, $key ) = ( $1, $2 );
      if ( exists $dup{$key} ) # already found to be a dup
      {
         push @{ $dup{$key} }, $id;
      }
      elsif ( exists $keys{$key} ) # only seen once before
      {
         push @{ $dup{$key} }, delete($keys{$key}), $id;
      }
      else # first time seen
      {
         $keys{$key} = $id;
      }

      # check if any key has init caps (not allowed)
      if ( $key =~ /^[A-Z]\w*/ )
      {
         print "Id: $id - $key\n";
      }
   }
}

print "\nDuplicated keys:\n\n";
for my $key ( keys %dup )
{
   print "Key: $key\n";
   print "\tId: $_\n" for @{$dup{$key}};
}