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";