Pilas
12345678910111213141516171819202122232425262728
use feature qw(say);
my @array;
@array = (2, 4, 8, 22, "Gael","David","Jose","Juan","Arturo");
say "@array";
my $numero = @array;
say $array[4];
$array[1] = 'Luis';
$array[-1] = 'Felipe';
say "@array";
my @pila;
#Apilar elementos
push @pila, 2;
push @pila, 4;
push @pila, 8;
push @pila, 10;
push @pila, 22;
push @pila, 'Luis';
push @pila, 'Gael';
push @pila, 'David';
push @pila, 'Jose';
push @pila, 'Juan';
push @pila, 'Felipe';
#Desapilar el último elemento
my $elemento = pop @pila;
say "@pila";
Perl
INFO