Aprenda a usar o laço foreach da linguagem Perl

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

# Como usar o laço foreach em Perl

# declarando e inicializando um array de inteiros
@valores = (40, 6, 3, 10, 87);

# vamos usar um laço foreach para percorrer todos os
# elementos do array
foreach $valor(@valores){
  $valor += 2;
  print $valor . "\n";
}	

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

# Como usar o laço foreach em Perl

# declarando e inicializando um array de inteiros
@valores = (12, 6, 3, 10, 87);

# vamos usar um laço foreach para percorrer todos os
# elementos do array
foreach(@valores){
  $_ += 2;
  print $_ . "\n";
}

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

# Como usar o laço foreach em Perl

# declarando e inicializando um hash de códigos
# e nomes de clientes
%codigos = (12 => "Osmar J. Silva",
            43 => "Marcos de Souza Oliveira",
            56 => "Gustavo Jorge Palmeira");

# vamos usar um laço foreach para percorrer todas as
# chaves e valores do hash codigos
foreach $codigo(keys %codigos){
  print "Código: " . $codigo . " - Cliente: " .
    $codigos{$codigo} . "\n";
}