# This is a little redundant as it recreates the @red array,
# but @words has all the values so it only dissappears for 
# a little bit :)
(@words) = @red;

# Now create out arrays for all the languages in the same 
# order to retain our own and our data's sanity :)

foreach $item (@words) {
   @{$item} = @words;
}