# Voici la version corrigée:
print "Caracteristiques du tableau \@liste1\n";
@liste1 = ("lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche");
print "affichage global :\n";
print "@liste1\n";
print "taille de la liste: \n";
$taille1 = scalar @liste1;
print $taille1,"\n";
print "son dernier élément est :\n";
print $liste1[$#liste1],"\n";
print "affichage de la liste, élément par élément (avec une boucle foreach) :\n";
foreach $liste1 (@liste1) {
 print $liste1,"\n";
}
