Stacks
12345678910111213141516171819202122232425262728293031323334
use feature qw(say);
my @array;
@array = (1, 2, 5, 42, "Erick","David","William","César","Carim");
say "@array";
my $numero = @array; # $numero contendrá en este caso, 8 elementos
say $array[4]; # Salida del quinto elemento que es Rubén
$array[1] = 'Rubén'; # Modificación del segundo elemento
$array[-1] = 'Fin'; # Modificación del "último" elemento
say "@array";
my @pila;
# Para apilar, usamos push
push @pila, 1;
push @pila, 'Rubén';
push @pila, 5;
push @pila, 42;
push @pila, 'Erick';
push @pila, 'David';
push @pila, 'William';
push @pila, 'César';
push @pila, 'Fin';
# Para desapilar el último, usar pop
my $elemento = pop @pila;
say "@pila";
Perl
INFO