#!/usr/bin/perl -w
#essayer de l'exécuter, si nécessaire corriger et compléter. 
@liste1 = ("lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche");
    print "affichage global \n";
    print @liste1,"\n";#affichage sans espaces
    print "@liste1\n";#affichages avec espaces
#afficher la taille
$taille1 = scalar @liste1;
    print "taille de \@liste1 = $taille1 \n";
#afficher le dernier élément
    print "son dernier élément est = ($liste1[$#liste1]) \n";
#afficher élément par élément
    print "affichage de \@liste1, élément par élément de liste1 \n";
#print "\n avec une boucle foreach :\n";
foreach $liste1 (@liste1){
    print "$liste1\n";
}
