#!/usr/bin/env perl -l

use strict;
use warnings;

use Inline::Files;

my %seen;

while (<ITES>) {
    chomp;
    my ($key, $val) = split /\s*=\s*/;
    $seen{$key} = $val;
}

while (<ITFR>) {
    chomp;
    my ($key, $val) = split /\s*=\s*/;
    print "$key => $seen{$key}, $val" if $seen{$key};
}

__ITES__
uno = uno
due = dos
tre = tres
quattro = quatro
cinque = cinco
sei = seis
sette = siete
otto = ocho
nouve = nueve
dieci =diez
__ITFR__
uno = un
due = due
tre = tris
quattro = quatre
cinque = cinq
sei = six
sette = sept
dieci = dix