#!/usr/bin/perl -w
#On crée un tableau appelé @alpha contenant toutes les lettres minuscules de l'alphabet
@alpha = ('a'..'z');
#On crée un tableau appelé @liste contenant le contenu du tableau @alpha ainsi que tous les chiffres de 0 à 9
@liste = (@alpha,0..9);
#On stocke dans une variable $el l'élément numéroté 3 du tableau @liste
#On stocke donc le 4ème élément car les tableaux sont numérotés à partir de 0
$el = $liste[3];
#On affiche la valeur de la variable $el 
#On retourne à la ligne
print "$el\n";
#On stocke dans des variables $a, $b et $c les 3 premiers éléments du tableau @liste
#On stocke le reste des éléments du tableau @liste dans un tableau @reste
($a, $b, $c, @reste) = @liste ;
#On affiche "$a= " et la valeur de la variable $a ; On affiche ", $b= " et la valeur de la variable $b ; On affiche ", $c= " et la valeur de la variable $c
#On affiche ", @reste= " et le contenu du tableau @reste
#On retourne à la ligne
print "\$a= $a, \$b= $b, \$c= $c , \@reste= @reste\n";
#On attribue à la variable $b le contenu de la variable $a et on attribue à la variable $a le contenu de la variable $b
#Cela permet d'inverser les valeurs
($b, $a) = ($a, $b);
#On affiche "$a= " et la valeur de la variable $a ; On affiche ", $b= " et la valeur de la variable $b
#On retourne à la ligne
print "\$a= $a, \$b= $b \n";
#On récupère le dernier élément du tableau @liste grâce à la fonction pop, on le place dans la variable $el et on le supprime du tableau @liste
$el = pop @liste;
#On affiche "$el= " et la valeur de la variable $el ; On affiche ", @liste= " et le contenu du tableau @liste
#On retourne à la ligne
print "\$el= $el, \@liste= @liste\n";
#On récupère le premier élément du tableau @liste grâce à la fonction shift, on le place dans la variable $el et on le supprime du tableau @liste
$el = shift @liste;
#On affiche "$el= " et la valeur de la variable $el ; On affiche ", @liste= " et le contenu du tableau @liste
#On retourne à la ligne
print "\$el= $el, \@liste= @liste\n";
#On affiche "@alpha est la liste "
#On retourne à la ligne
#On affiche le contenu du tableau @alpha
#On retourne à la ligne
print "\@alpha est la liste \n@alpha\n";
#On crée une boucle avec une variable $i comme compteur et qui est initialisé à 0
#On incrémente à chaque passage ($i++) la variable $i
#On exécute le bloc d'instructions (= Instructions contenues entre accolades) tant que la variable $i est strictement inférieure à 26 ($i<26)
#La boucle est donc exécutée 26 fois ($i de 0 à 25)
for ($i=0; $i<26 ; $i++) {
	#On récupère le dernier élément du tableau @alpha grâce à la fonction pop, on le place dans la variable $el et on le supprime du tableau @alpha
	$el= pop @alpha;
	#On place la valeur de la variable $el au début du tableau @alpha grâce à la fonction unshift
	unshift @alpha, $el;
}
#On affiche "@alpha est maintenant "
#On retourne à la ligne
#On affiche tous les éléments contenus dans le tableau alpha
#On retourne à la ligne
print "\@alpha est maintenant \n@alpha\n";