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

# 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))