On peut dérouler les valeurs d'un tableau avec la boucle
foreach puis appliquer une fonction à chaque valeur
retournée. Le module Loop propose une autre approche de ce type
de besoin. L'exemple ci-dessous montre le type de programmation
associé à ce module :
use Loop;
my @var = qw ( 1 2 3 4 5 6 7 8 9 0 );
Loop::Array @var,sub {
my($index,$value) = @_;
print "Entree $index => $value\n";
}