Maquina 1: This is perl, v5.8.6 built for darwin-thread-multi-2level<br>Maquina 2: This is perl, v5.8.8 built for i486-linux-gnu-thread-multi<br><br>Ya me perdí, otra vez, jajajaja.<br>Tengo esto:<br>my %resultados;<br>while ( my @resultados = $sth-&gt;fetchrow_array ) {<br>
&nbsp;&nbsp;&nbsp; foreach my $resultado (@resultados) {&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; my ( $ID, $pais ) = @{$resultado}[ 0, 1 ];<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; push @{ $resultados{$ID} }, $pais;<br><br>Donde tengo que entrecomillar??<br>while ( my @resultados = $sth-&gt;fetchrow_array ) {<br>
$resultado=\&quot;$resultado\&quot;; #&lt;-Aquí??<br>&nbsp;&nbsp;&nbsp; foreach my $resultado (@resultados) { <br><br>Imprime: Use of uninitialized value in concatenation (.) or string at ...<br>Ya le añadí el warnings.<br>