#!/usr/loca/bin/perl


@list = ("chien" ,"chat");

print "liste = @list\n";

push(@list,"toto");

print 'push(@list,"toto")',"\n";;


print "liste = @list\n";

unshift(@list,"titi");

print 'unshift(@list,"titi")',"\n";

print "liste = @list\n";

$last=pop @list;

print '$last=pop @list', "\n";

print "dernier = $last, liste =  @list\n";

$first=shift @list;

print '$first=shift @list', "\n";

print "premier = $last, liste =  @list\n"