#!/usr/local/bin/perl

# trouver la valeur maximale d'une liste de valeur
sub find_max
 {
  my($peu