@alpha = ('a'..'z'); @liste = (@alpha,0..9);
$el = $liste[3];	#l'élément [3] de la liste est le 4eme, en perl comme en python 
print "\n";
print "le quatrieme element de la liste alphabetique est $el\n";
print "\n";
($a, $b, $c, @reste) = @liste ;
print " \$a= $a, \$b= $b, \$c =$c\n \@reste= @reste\n";
print "\n";
($b, $a) = ($a, $b);
print " \$a= $a, \$b= $b \n";
print "\n";
print "On supprime avec pop le dernier element de la liste:\n";
$el = pop @liste;
#"pop" imprime et supprime de la liste son dernier élément, ici 9
print "$el\n";
print "la liste devient donc:\n@liste\n";
print "\n";
print "puis avec shift on supprime le dernier élement:\n";
$el = shift @liste;
#"shift" imprime et supprime de la liste son premier élément, ici a
print "$el\n";
print "Ce qui nous donne à présent: \n@liste\n";
print "\n";
print "Pour finir, on ne conserve que la liste alphabetique...Et on restitue l'element premier supprimé plus haut\n";
for ($i=0; $i<26 ; $i++) {
$el= pop @alpha;
unshift @alpha, $el;
}
print "\n";
print "donc \@alpha est maintenant: \n@alpha\n";
print "\n";
