use Win32::Console;
use Win32::Console::ANSI;
use utf8; use 5.010;
$OUT = Win32::Console->new(STD_OUTPUT_HANDLE);
@a_a= ['abadejo', 'abeja', 'abejorro', 'agami', 'aguila', 'aguilucho', 'akita', 'alacran', 'alce', 'almeja',
		'alondra', 'alpaca', 'anaconda', 'anade', 'analis', 'anchoa', 'anemona', 'angelote', 'anguila',
		'antilope', 'araña', 'arapaima', 'ardilla', 'arenque', 'armadillo', 'armiño', 'asno', 'avestruz',
		'avetoro', 'avispa', 'avuntarda', 'axolote'];
@a_b= ['babirusa', 'babosa', 'babuino', 'bacalao', 'bachaco', 'baiji', 'ballena', 'banteng', 'barasinga',
		'barracuda', 'basilisco', 'beagle', 'becada', 'becerro', 'beira', 'beluga', 'bengali', 'bermejuela',
		'berrendo', 'besset', 'besugo', 'bichon', 'bisbita', 'bisonte', 'blesbok', 'boa', 'bocarte', 'bogavante',
		'bongo', 'boqueron', 'borochi', 'boto', 'boxer', 'braco', 'buey', 'bufalo', 'bufalo', 'buho', 'buitre',
		'bulldog', 'bulltierrer', 'burmes', 'burro', 'busardo', 'busardo'];
@a_c= ['caballo', 'cabra', 'cacatua', 'cachalote', 'cacocero', 'caiman', 'calamar', 'calamon', 'calandria', 'calaos',
		'camaleon', 'camello', 'canario', 'cangrejo', 'canguro','caniche', 'cantil', 'capibara', 'caracal', 'caracol',
		'carbonero', 'caribu', 'carlino', 'carpa', 'carranca', 'cascabel', 'castor', 'cebra', 'cebu', 'centollo', 'cenzontle',
		'cerdo', 'cerval', 'chacal', 'cheetah', 'chiguiro', 'chihuahua', 'chimpance', 'chinche', 'chinchilla', 'chivo',
		'chorlo', 'chow', 'chuckwalla', 'ciempies', 'ciervo', 'cigala', 'cigarra', 'cigüeña', 'cigüeña', 'cisne', 'coati',
		'cobaya', 'cobo', 'cobra', 'cocker', 'cocodrilo', 'cocuyo', 'codorniz', 'coendu', 'colibri', 'collie', 'colocolo',
		'colpu', 'comadreja', 'condor', 'conejo', 'copperhead', 'coqui', 'coral', 'coralillo', 'correcaminos', 'coregono', 'corgi', 'coridora',
		'cormoran', 'cortecerito', 'corydoras', 'corzo', 'cotorro', 'cotuza','coyote', 'cucaracha', 'cuervo', 'culebrera',
		'curruca', 'cuy', 'cuyo', 'cyematidae'];
@a_d= ['dalmata', 'daman', 'danta', 'delfin', 'dingo', 'diuca', 'doberman', 'dodo', 'dragon', 'dromedario', 'dugongo'];
@a_e= ['eglefino', 'elefante', 'emu', 'erizo', 'escarabajo', 'escorpion', 'escuerzo', 'escuerzo', 'espatula', 'esponja',
		'estornino', 'estrella'];
@a_f= ['faisan', 'flamenco', 'foca', 'frailecillo'];
@a_g= ['gacela', 'galapago', 'galgo', 'gallina', 'gallipato', 'gallo', 'gamba', 'ganso', 'garcilla', 'gariba', 'garrapata',
		'garza', 'gato', 'gavilan', 'gecko', 'gloton', 'golden', 'goliath', 'golondrina', 'gorgojo', 'gorila', 'gorrion',
		'grillo', 'grizzli', 'grulla', 'guepardo'];
@a_h= ['halcon', 'hamster', 'harpia', 'hiena', 'hipocampo', 'hipopotamo', 'holoturia', 'hormiga', 'huiña', 'hupon', 'huron',
		'husky'];
@a_i= ['ibice', 'icote', 'iguana', 'impala', 'intedio', 'irminia'];
@a_j= ['jabali', 'jabiru', 'jaguar', 'jerbo', 'jirafa', 'jorobada'];
@a_k= ['kaguang', 'kiwi', 'koala', 'kodiak', 'krait', 'krill'];
@a_l= ['labiado', 'labrador', 'labro', 'lagarto', 'langosta', 'langostino', 'lechuza', 'lemur', 'leon', 'leopardo', 'lhasa', 'libelula', 'liebre', 'lince', 'listrada', 'llama', 'lobo', 'loro'];
@a_m= ['malamute', 'mamba', 'mamut', 'mandril', 'mapache', 'marabu', 'marabunta', 'marcial', 'marmota', 'mastin', 'medusa', 'mejillon', 'milana', 'mofeta', 'monera', 'mono', 'morsa', 'murcielago'];
@a_n= ['narval', 'nauyaca', 'necora', 'nutria'];
@a_ñ= ['ñu', 'ñandu'];
@a_o= ['ocelote', 'okapi', 'orca', 'ornitorrinco', 'oso', 'oveja'];
@a_p= ['pajaro', 'paloma', 'panda', 'pantera', 'papagayo', 'pardo', 'pastor', 'pelicano', 'pequines', 'perca', 'perdicera', 'perdiz', 'perezoso', 'perico', 'peripato', 'perro', 'pescado', 'petirrojo', 'pez', 'pingüino', 'pinscher', 'pinzon', 'piquituerto', 'pitbull', 'piton', 'poma', 'puercoespin', 'pulpo', 'puma'];
@a_q= ['quebrantahuesos', 'quetzal', 'quiton'];
@a_r= ['rana', 'rata', 'raton', 'raya', 'rebeco', 'remora', 'reno', 'retriever', 'ridchardson', 'rinoceronte', 'rorcual', 'rottweiler', 'ruiseñor'];
@a_s= ['salamandra', 'salmon', 'saltadora', 'samoyedo', 'sanguijuela', 'sapo', 'schnauzer', 'sepia', 'serengeti', 'serpiente', 'shiba', 'spaniel', 'stromatopelma'];
@a_t= ['rana', 'rata', 'raton', 'raya', 'rebeco', 'remora', 'renacuajo', 'reno', 'retriever', 'ridchardson', 'rinoceronte', 'rorcual', 'rottweiler', 'ruiseñor'];
@a_u= ['urogallo', 'urraca'];
@a_v= ['vaca', 'varano', 'venado', 'vicuña', 'violinista', 'viuda', 'volatinera'];
@a_w= ['walabi', 'walaro', 'wapiti', 'weta', 'wombat'];
@a_x= ['xenopus', 'xoloescuintle'];
@a_y= ['yacare', 'yaguarundi', 'yak', 'yegua', 'yorkshire'];
@a_z= ['zarigueya', 'zebra', 'zorro'];

%animal=('A'=> @a_a,'B'=> @a_b,'C'=> @a_c,'D'=> @a_d,'E'=> @a_e,'F'=> @a_f,'G'=> @a_g,'H'=> @a_h,'I'=> @a_i,
		'J'=> @a_j,'K'=> @a_k,'L'=> @a_l,'M'=> @a_m,'Ñ'=> @a_ñ,'O'=> @a_o,'P'=> @a_p,'Q'=> @a_q,'R'=> @a_r,
		'S'=> @a_s,'T'=> @a_t,'U'=> @a_u,'V'=> @a_v,'W'=> @a_w,'X'=> @a_x,'Y'=> @a_y,'Z'=> @a_z);
    @c_a=['amaranto','arlequín','azul','añil','acero ','aguamarina','amarillo','	ámbar',];
    @c_b=['bermellón','burdeos','borgoña', ];
    @c_c=['carmesí','carmín','chartreuse','cobalto','cian','celeste','cerúleo','café','chocolate','castaño','caqui', ];
    @c_d=['dorado',];
    @c_e=['escarlata','esmeralda','espárrago',];
    @c_f=['francia','fucsia',];
    @c_g=['granate'];
    @c_h=[];
    @c_i=['índigo','indio',];
    @c_j=['jade',];
    @c_k=[' klein	',];
    @c_l=['lila','lavanda','limón','lima',];
    @c_m=['marino','majorelle','magenta','morado','malva','menta','marrón'];
    @c_n=[];
    @c_ñ=[];
    @c_o=['oliva','oro','ocre',];
    @c_p=['petróleo','prusia','pardo',];
    @c_q=[];
    @c_r=['rojo','rosa',];
    @c_s=['salmón','siena',];
    @c_t=['turquí','turquesa',];
    @c_u=[];
    @c_v=['verde','verdeagua','veronés',];
    @c_w=[];
    @c_x=['xanadu',];
    @c_y=[];
    @c_z=['zafiro',];

    %color=('A'=> @c_a,'B'=> @c_b,'C'=> @c_c,'D'=> @c_d,'E'=> @c_e,'F'=> @c_f,'G'=> @c_g,'H'=> @c_h,'I'=> @c_i,
    		'J'=> @c_j,'K'=> @c_k,'L'=> @c_l,'M'=> @c_m,'Ñ'=> @c_ñ,'O'=> @c_o,'P'=> @c_p,'Q'=> @c_q,'R'=> @c_r,
    		'S'=> @c_s,'T'=> @c_t,'U'=> @c_u,'V'=> @c_v,'W'=> @c_w,'X'=> @c_x,'Y'=> @c_y,'Z'=> @c_z);
do{
$a=16807;
sleep(3);
my ($sec)=localtime(time);
$m= $sec;
$b = 0;
$Xno = 30263;

$Xn1 = ($a*$Xno+$b)%$m;
$ri= $Xn1/$m;
$Xno=$Xn1;
}while ($ri==$usado);

if ($ri<=0.03) {
$A=('A');
$ri=$usado;
#print $A;
} elsif ( $ri<=0.074 ) {
$B=('B');
$usado=$B;
#print "$B";
} elsif (  $ri<=0.11 ) {
$C=('C');
$usado=$C;
} elsif (  $ri<=0.14) {
#print "$C";
$D=('D');
$usado=$D;
} elsif (  $ri<=0.18) {
#print "$D";
$E=('E');
$usado=$E;
} elsif ( $ri<=0.22) {
#print "$E";
$F=('F');
$usado=$F;
} elsif (  $ri<=0.25) {
#print "$F";
$G=('G');
$usado=$G;
#print "$G";
} elsif (  $ri<=0.29) {
$H=('H');
$usado=$H;
#print "$H";
} elsif (  $ri<=0.33) {
$I=('I');
$usado=$I;
#print "$I";
} elsif ( $ri<=0.37) {
$J=('J');
$usado=$J;
#print "$J";
} elsif (  $ri<=0.40) {
$K=('K');
$usado=$K;
#print "$K";
} elsif ( $ri<=0.44) {
$L=('L');
$usado=$L;
#print "$L";
} elsif (  $ri<=0.48) {
$M=('M');
$usado=$M;
#print "$M";
} elsif (  $ri<=0.51) {
$N=('N');
$usado=$N;
#print "$N";
} elsif (  $ri<=0.55) {
$Ñ=('Ñ');
$usado=$Ñ;
#print "$Ñ";
} elsif (  $ri<=0.59) {
$O=('O');
$usado=$O;
} elsif (  $ri<=0.62) {
#print "$O";
$P=('P');
$usado=$P;
#print "$P";
} elsif (  $ri<=0.66) {
$Q=('Q');
#print "$Q";
$usado=$Q;
} elsif ( $ri<=0.70) {
$R=('R');
$usado=$R;
#print "$R";
} elsif ( $ri<=0.74) {
$S=('S');
$usado=$S;
#print "$S";
} elsif ( $ri<=0.77) {
$T=('T');
$usado=$T;
#print "$T";
} elsif (  $ri<=0.81) {
$U=('U');
$usado=$U;
#print "$U";
} elsif (  $ri<=0.85) {
$V=('V');
$usado=$V;
#print "$V";
} elsif (  $ri<=0.88) {
$W=('W');
$usado=$W;
#print "$W";
} elsif ( $ri<=0.92) {
$X=('X');
$usado=$X;
#print "$X";
} elsif (  $ri<=0.96) {
$Y=('Y');
$usado=$Y;
#print "$Y";
} elsif (  $ri<=1) {
$Z=('Z');
$usado=$Z;
#print "$Z";
}

my @stooges = qw( animal color pais );
   $c=0;
   for (my $c=0; $ c<4; $c++) {
     print "\n  Letra generada: ". $usado;
     print "\nIngresa  $stooges[$c]:";
     $pal_in=<STDIN>;
     $pal_new= lc $pal_in;
     @a = @{ $animal{$usado} };
     $resultado = 0; chomp $pal_new;
       foreach $palabra (keys @a) {
         if ($pal_new eq @a[$palabra]) {
           $resultado = 1;
         } } #Termina FOREACH
           if($resultado == 1){
             print "  \e[32;40;1mPalabra aceptada\e[0m\n";
             } else {
               print "  \e[31;40;1mPalabra no aceptada\e[0m\n";
             }
   }#termina for