# Récupérer le programme suivant
	# Commenter les différentes instructions, et prévoir très précisément les affichages avant d'expérimenter 

#!/usr/bin/perl -w
@alpha = ('a'..'z'); # @alpha est un tableau comprenant tout alphabet de a à z
@liste = (@alpha,0..9); # @liste est un tableau comprenant tout alphabet et tout chiffre de 0 à 9
$el = $liste[3]; # création de la variable $el qui contient le 4ème élément de la liste 
print "$el\n"; # affichage de la valeur de $el
($a, $b, $c, @reste) = @liste ; # on attribue aux trois premiers éléments du tableau les variables $a, $b et $c; les éléments restant sont stocker dans le tableau @reste
print "\$a= $a, \$b= $b, \$c =$c , \@reste= @reste\n"; # on affiche les valeurs de chaque variable
($b, $a) = ($a, $b); # la variable $b prend la valeur de $a tandis que la variable $a prend la valeur de $b; 
print "\$a= $a, \$b= $b \n"; # affichage des nouvelles valeurs de $a et $b
$el = pop @liste; # pop permet de récupèrer le dernier élément de @liste
print "\$el= $el, \@liste= @liste\n"; # affichage du dernier élément et de @liste sans son dernier élément
$el = shift @liste; # shift permet de récupèrer le premier élément de la liste afin de le stocker dans la variable $el
print "\$el= $el, \@liste= @liste\n"; # affichage du premier élément et de @liste sans son premier élément
print "\@alpha est la liste \n@alpha\n"; # affichage des tous éléments de @alpha séparés par blanc et récupès grâce à la boucle for
for ($i=0; $i<26 ; $i++) { # on crée un compteur $i, la boucle tourne toujours jusqu'au 26 fois avant de recommencer 
$el= pop @alpha; # pop permet de récupèrer le dernier élément de la liste @alpha et stocker dans la variable $el
unshift @alpha, $el; # unshift permet de placer la valeur de $el au début de @alpha
} # fin de la boucle for
print "\@alpha est maintenant \n@alpha\n"; # affichage de @alpha modifié 