while(<$in1>){
    chomp;
    my ($ita,$fran)=split /\s*=\s*/; #diventa in due colonne
    $hash{$ita}[1]=$fran; #salva i numeri francesi al loro posto [1]
    
    #se i numeri esiste in ambe matrice
    if ($hash{$ita}[0] and $hash{$ita}[1]){
        print $out "$ita =>",join(',',@{$hash{$ita}}),"\n";        
        } else {
            print $out1 "$ita =>", join(',',@{$hash{$ita}}),"\n";
            }   
    }
close $in1;
close $out;
close $in1;