Olá a todos, algué poderia me dizer pq o código:<br><br>@cores = (&quot;azul&quot;,&quot;verde&quot;,&quot;amarelo&quot;,&quot;vermelho&quot;);<br><br>foreach $cor (@cores) {<br>&nbsp;&nbsp;&nbsp; print $cores[$cor],&quot;\n&quot;;<br>}<br>
<br>imprime azul <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; azul<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; azul<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; azul<br><br><br>VLW<br><br><br><br><br>