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

# Trabalhando com arrays em Perl

# declara e inicializa um array de inteiros
@valores = (11, 5, 3, 8, 2, 4);

# vamos exibir os valores do array
for($i = 0; $i < scalar(@valores); $i++){
  print @valores[$i] . "  ";
}

# vamos inverter a ordem dos elementos do array
@valores = reverse(@valores);
print "\n";

# vamos exibir os valores do array invertido
for($i = 0; $i < scalar(@valores); $i++){
  print $valores[$i] . "  ";
}