#!/usr/bin/perl -w
@liste1 = ("lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche");
print "\nAffichage global de la liste (Sans espaces) :\n";
print @liste1,"\n\n";
print "Affichage global de la liste (Avec espaces) :\n";
print "@liste1\n\n";
print "Taille de \@liste1 = ", $#liste1+1, "\n\n";
print "Son dernier élément est : $liste1[$#liste1] \n\n";
print "Affichage de \@liste1 (Elément par élément) :\n";
print "@liste1\n";
print "\nAffichage de \@liste1 (Avec une boucle foreach) :\n";
foreach $boucle (@liste1) {
	print $boucle, "\n";
}
print "\n"