#!/usr/bin/perl -w
@liste1 = ("lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche");
print "affichage global (sans espaces) :\n";
print @liste1,"\n";
print "affichage global (avec espaces):\n";
print "@liste1\n\n";

$a =  scalar(@liste1);
print "La taille de \@liste1 est de $a elements\n";

$b = $liste1[$#liste1] ;
print "Son dernier element est : $b\n";


print "affichage de \@liste1, element par element :\n";
print "@liste1\n";

print "\nAvec une boucle foreach :\n";
foreach $c (@liste1) {
	print $c, "\n";
}
print "\n"
