Select Code to Download

    chomp;
    my($col1,$col2,$rest)=split(/\t/);
    my $ckey="$col1$col2"   #<= NO PERIOD!

if (!defined $num){

nouve =>nueve,,neun
uno =>uno,,eins

    my ($ita,$fren,$num1,$num2)= split(/[=\s,]+/); #creates col of num
+bers
    $hash{$ita}[1]=$fren; #now hash_ref format will look like this: it
+a=> spa , fren
...
         $hash{$ita}[4]=$num2; # % looks like this Ita=> Span,Fren, Ra
+ndnum[3]?(ifdefined), Randnum[4]
         }           
    }