$_ = <TABLE>;
chomp;
(undef, my @lang) = split /\t/;
while(<TABLE>) {
    chomp;
    my($key, @text) = split /\t/;
    for my $i (0 .. $#lang) {
        $translat{$lang[$i]}{$key} = $text[$i];
    }
}