#!/usr/bin/perl

# http://perlmonks.org/?node_id=1129003

use warnings;
use strict;

$_ = <<END;
uno = uno 
due = dos
tre = tres
quattro = quatro
cinque = cinco
sei = seis
sette = siete
otto = ocho
nouve = nueve
dieci =diez

uno = un
due = due
tre = tris
quattro = quatre
cinque = cinq
sei = six
sette = sept
dieci = dix
END

print "$1 => $2, $3\n" while /^(\w+) = *(\w+)\b(?=.*\n\n.*^\1 = (\w+))/gms;