Select Code to Download

%base_lang = (
   'English'  => '0',
...
print "$hello[$lang_num] is $choice for hello\n";

# so on and so forth

# This is a little redundant as it recreates the @red array,
...
foreach $item (@words) {
   @{$item} = @words;
}

@red          = qw(red french_red japanese_red);
@french_red   = qw(red french_red japanese_red);
@japanese_red = qw(red french_red japanese_red);

# take for granted all words are within a particular array
...
   print "No German word for $word!\n" if (!${$word}[3]);
}