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