Como escrever um script no perl que verifica a duplicata em um arquivo

Question

Para e. g .:

Eu tenho 2 arquivos

Arquivo1:

a1~gif~255.255.255.255

Arquivo2:

a1~gif~host

Aqui ambos os arquivos têm o mesmo conteúdo, exceto o último campo. Isso ocorre porque a sub-rede: 255.255.255.255 está sendo convertida em palavra-chave host por firewall e armazenada em um arquivo. Este é um caso duplicado, se isso ocorrer, deve sair como duplicado. Por favor, ajude

Iv tentou usar abaixo que, se encontrar a sub-rede, deve verificar a entrada correspondente em outro arquivo, mas parece que não funciona.

 && (grep(/255.255.255.255/) @file1