use strict;
use warnings;

my $lang = 0;

my @name = (qw/name nombre/);
my @color = (
             [qw/red yellow blue/],
             [qw/rojo amarillo azul/],
             );


print "$name[$lang]\n";
print "$color[$lang][2]\n";