$translat{English}{red} = 'red';
$translat{English}{blue} = 'blue';
$translat{English}{yellow} = 'yellow';
$translat{Spanish}{red} = 'rojo';
$translat{Spanish}{blue} = 'azul';
$translat{Spanish}{yellow} = 'amarillo';

##</code><code>##

$t = $translat{Spanish};
print "The proper word for red is '$t->{red}'\n";

##</code><code>##

The proper word for red is 'rojo'

##</code><code>##

$_ = <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];
    }
}