my @map = {
    English=>[ qw[one two three four five] ],
    French=>[ qw[ une deux troix quatre cinq] ],
   ...
};

print $map{French}[21]; # Gives deux