Como retornar (e remover) o último elemento de um array

----------------------------------------------------------------------
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 = (211, 5, 3, 8, 2, 4);

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

# vamos obter (e excluir) o último elemento do
# array (como em uma estrutura de dados do tipo
# pilha - LIFO (Last-In First-Out))
$valor = pop(@valores);
print "\nO elemento removido foi: " . $valor . "\n";

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