my ( $code, $descr ) = split /,/;
       $codes_hash{$code}{$language} = eval $descr;