use strict; use feature qw(say); my @lista=("Gael","Juan","Jose","Felipe","Rosa"); print "@lista"; print "\n Insertar nuevo dato: \n"; my @nodo = ("Jorge"); unshift (@lista, @nodo); foreach (@lista) { print $_. "\n"; } print "\n Eliminar elemento de la lista: \n"; my @nodo = ("Jorge"); pop (@lista); foreach (@lista) { print $_. "\n"; } print "\n Buscar un elemento de la lista: \n"; say $lista[1]; print "\n Vaciar todos los elementos: \n"; undef @lista = ();