print "Hello World!\n";use strict;
use feature qw(say);
print "\n ****Primero hacemos 5 inserciones en la lista**** \n";
my @lista=("David","Gael","Nelly","Ruy","Francisco");
print "@lista";
print "\n ****insertar un nuevo dato al principio de la lista**** \n";
my @nodo = ("Jorge");
unshift (@lista, @nodo);
foreach (@lista)
{
print $_. "\n";
}
print "\n ****eliminar un dato al final de la lista**** \n";
my @nodo = ("Jorge");
pop (@lista);
foreach (@lista)
{
print $_. "\n";
}
print "\n ****Buscar un dato de la lista**** \n";
say $lista[1];
print "\n ****Vaciar la lista**** \n";
undef @lista = ();