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