Select Code to Download

   #define if there (is) are numbers in position 3 and 4 concat to pos
+ition 3
     if (defined ($num1) and defined ($num2)){
     $hash{$ita}[3]=$num1$num2; # concat if numbers defined in poition
+ 1 and 2 and store in 3

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 diagnostics;
...

#close $out;
#close $out1;