Select Code to Download

uno = uno,eins
due = dos,zwei 
...
undici = once, elf
dodici = doce
tredici = trece, dreizehn

due =deux, two,   
tre = trois,drei,    three 
...
dieci =dix
undici = onze,eleven
tredici = treize,thirteen, dreizehn

use strict;
use warnings;
...
            print "$ita =>",join(',',@{$hash{$ita}}),"\n";
            }
    }