dieci = diez,   zehn
quattro = quatro
sei = seis,
sette = siete,sechs

##</code><code>##

while ($in){
    #data manipulation to clean up ='s and ,'s
    chomp;
    $_= ~/^\w+\s*=\s*\w+\s*\,\?\w+/ ;