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 = ();
