#!/usr/bin/perl -w

@alpha = ('a'..'z'); @liste = (@alpha,0..9);

$el = $liste[3];
	print "$el\n";
(
$a, $b, $c, @reste) = @liste ;
	print "\$a= $a, \$b= $b, \$c =$c , \@reste= @reste\n";

	($b, $a)= ($a, $b);
	print "\$a= $a, \$b= $b \n";

$el = pop @liste;								#enlève  le dernier element de @liste
	print "\$el= $el, \@liste= @liste\n";		#affiche l'élément renvoyé dans la scalaire $el, affiche aussi @liste après l'nlèvement du 1er élément

$el = shift @liste;								#renvoi le 1er élément de @liste
	print "\$el= $el, \@liste= @liste\n";		#affiche  l'élément renvoyé dans la scalaire $el, affiche aussi @liste après l'nlèvement du 1er élément
	
	print "\@alpha est la liste \n@alpha\n";	#affiche les variables stockés dans la liste @alpha

for ($i=0; $i<26 ; $i++) {						# pur la valeur de i inrementé 26 fois fait tourner la boucle autant de fois, 
$el= pop @alpha;								#et enlève a chaque fois le dernier élément,et renvoi le dans $el
unshift @alpha, $el;							#avec unshift,ajout  a chaque fois l'element revoyé dans $el au début de la nouvelle liste @alpha," il reconstiut la liste @alpha: enlève a chaque boucle le dernier élément  , le récupère puis l'insère à nouveaux au début de nouvelle la liste@
}
print "\@alpha est maintenant \n@alpha\n";		#affiche le résultat qui est la liste reconstituer à l'envers de "z" à "a"