Select Code to Download

my @map = {
    English=>[ qw[one two three four five] ],
...
};

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