#!/usr/local/bin/perl
 
# trouver la valeur maximale d'une liste de valeur
sub find_max
 {
  my($peu