Issues with Perl program
<pre><code>use strict;
use warnings;
use FindBin;
use lib $FindBin::Bin;
use genNumeros;

my @palabra;

open (my $ARCHIVO, '&lt;', "palabras.txt") or warn ("No se encontro el archivo     palabras.txt, $!");
while (my $palabra = &lt;$ARCHIVO&gt;) {
    chomp $palabra;             

    push @palabra, $palabra;   
}
close $ARCHIVO;
my $palabraAleatoria = $palabra[genNumeros::crearNumero()];
print"$palabraAleatoria";
&lt;&gt;;
</code></pre>

<p>The genNumeros module has this code: </p>

<pre><code> package genNumeros;
 use strict;
 use warnings;
 use Math::Complex;


my $seed = time();
my $a = $seed / 5;
my $c = $seed - 7;
my $x = $seed;
my $m = sqrt($seed % 574) + $seed;
my $numAleatorio;


sub generadorMultiplicativo{
    $numAleatorio = ((($a*$x) + $c) % $m);
    $x = $numAleatorio;
}
my $letra;
my $residuo;

sub crearNumero{

generadorMultiplicativo();
     $residuo = $x/$m;

   if($residuo &lt; 0.0384615384615385){
       $letra = 1;
   } 
   if($residuo &gt; 0.0384615384615385 &amp;&amp; $residuo &lt; 0.076923076923077){
           $letra = 2;
   } 
   if($residuo &gt; 0.076923076923077 &amp;&amp; $residuo &lt; 0.1153846153846154){
           $letra = 3;
   }
   if($residuo &gt; 0.1153846153846154 &amp;&amp; $residuo &lt; 0.1538461538461538){
           $letra = 4;
   }
   if($residuo &gt; 0.1538461538461538 &amp;&amp; $residuo &lt; 0.1923076923076923){
           $letra = 5;
   }
   if($residuo &gt; 0.1923076923076923 &amp;&amp; $residuo &lt; 0.2307692307692308){
           $letra = 6;
   }
   if($residuo &gt; 0.2307692307692308 &amp;&amp; $residuo &lt; 0.2692307692307692){
           $letra = 7;
   }
   if($residuo &gt; 0.2692307692307692 &amp;&amp; $residuo &lt; 0.3076923076923077 ){
           $letra = 8;
   }
   if($residuo &gt; 0.3076923076923077 &amp;&amp; $residuo &lt; 0.3461538461538462){
           $letra = 9;
    }
   if($residuo &gt; 0.3461538461538462 &amp;&amp; $residuo &lt; 0.3846153846153846){
           $letra = 10;
   }
   if($residuo &gt; 0.3846153846153846 &amp;&amp; $residuo &lt; 0.4230769230769231){
           $letra = 11;
   }
   if($residuo &gt; 0.4230769230769231 &amp;&amp; $residuo &lt; 0.4615384615384615){
           $letra = 12;
    }
    if($residuo &gt; 0.4615384615384615 &amp;&amp; $residuo &lt; 0.5){
           $letra = 13;
   }
   if($residuo &gt; 0.4615384615384615 &amp;&amp; $residuo &lt; 0.5384615384615385){
           $letra = 14;
   }
   if($residuo &gt; 0.5384615384615385 &amp;&amp; $residuo &lt; 0.5769230769230769){
           $letra = 15;
   }
   if($residuo &gt; 0.5769230769230769 &amp;&amp; $residuo &lt; 0.6153846153846154){
           $letra = 16;
   }
   if($residuo &gt; 0.6153846153846154 &amp;&amp; $residuo &lt; 0.6538461538461538){
           $letra = 17;
   }
   if($residuo &gt; 0.6538461538461538 &amp;&amp; $residuo &lt; 0.6923076923076923){
           $letra = 18;
   }
   if($residuo &gt; 0.6923076923076923 &amp;&amp; $residuo &lt; 0.7307692307692308){
           $letra = 19;
   }
   if($residuo &gt; 0.7307692307692308 &amp;&amp; $residuo &lt; 0.7692307692307692){
           $letra = 20;
   }
   if($residuo &gt; 0.7692307692307692 &amp;&amp; $residuo &lt; 0.8076923076923077){
           $letra = 21;
   }
   if($residuo &gt; 0.8076923076923077 &amp;&amp; $residuo &lt; 0.8461538461538462){
           $letra = 22;
   }
   if($residuo &gt; 0.8461538461538462 &amp;&amp; $residuo &lt; 0.8846153846153846){
           $letra = 23;
   }
   if($residuo &gt; 0.8846153846153846 &amp;&amp; $residuo &lt; 0.9230769230769231){
           $letra = 24;
   }
   if($residuo &gt; 0.9230769230769231 &amp;&amp; $residuo &lt; 0.9615384615384615){
           $letra = 25;
   }
   if($residuo &gt; 0.9615384615384615 &amp;&amp; $residuo &lt; 1){
           $letra = 26;
   }
   return $letra;

}

1;
</code></pre>

<p>The thing is, that when i execute the .pl, it only closes up, i've already checked the "palabras.txt" and it has 27 words, the perl -c and perl -wc says that the syntax is OK, the @INC with perl -V finishes with a '.', I really don't know what's happening, I'm on ActivePerl 5.20 in Windows 10.</p>