#!/usr/bin/env perl -l

use strict;
use warnings;

use Inline::Files;

my %seen;

while (<ITES>) {
    ++$seen{(split)[0]};
}

while (<ITFR>) {
    my $key = (split)[0];
    print $key 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

##</code><code>##

uno
due
tre
quattro
cinque
sei
sette
dieci

##</code><code>##

#!/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

##</code><code>##

uno => uno, un
due => dos, due
tre => tres, tris
quattro => quatro, quatre
cinque => cinco, cinq
sei => seis, six
sette => siete, sept
dieci => diez, dix