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