Select Code to Download

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

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

The proper word for red is 'rojo'

$_ = <TABLE>;
chomp;
...
        $translat{$lang[$i]}{$key} = $text[$i];
    }
}