Itérer un tableau à l’aide d’un boucle

Author:
#!/usr/bin/perl
 
@tab = (1, 2, 3, 4, 5);
 
foreach $elem (@tab)
{
    $elem--;   #Soustraire 1 dans c