pour cet ensemble

foreach lui provoque une action pour chaque valeur d'un tableau, on l'utilise de la manière suivante :

#!/usr/bin/perl

use strict;
my $inc;
my @tabular;
my $value;
for($inc = 0; $inc <=5 ; $inc++)
{
    $tabular[$inc] = $inc;
}
foreach $value(@tabular)
{
    print "nous en sommes a $value\n";
}

Ce script fait la même chose que le script précédent mais montre bien le fonctionnement de foreach .