Select Code to Download

%colors =(
                english=>[qw/red blue yellow/],
...

$lang = 'spanish';
print $colors{$lang}[0];

%colors =(
...
$language = 'spanish';

print $colors{$color}{$language};