Em relação ao Perl, considere o código abaixo:

open(CORES,">cores.txt");
@cores = ("azul","verde","amarelo","vermelho");
foreach $i (@cores)
{
print CORES $cores[$i],"\n";
}
close(CORES);

I. Na 1ª linha, a substituição da instrução ">cores.txt" por ">>cores.txt" permitirá a abertura do arquivo para gravação. Se o arquivo já existir, ele será regravado e os dados do arquivo anterior serão perdidos.

II. Na 2ª linha, a variável @cores é uma variável do tipo array, no qual os elementos são acessados por um índice cujo valor para o primeiro elemento é zero.

III. O bloco foreach inicia-se em {, exibido na 4^a linha.

IV. "\n", exibido na 5^a linha, informa ao sistema para iniciar uma nova linha após a impressão da mensagem.