Calculer la somme d’un tableau à l’aide d’un subroutine

Author:

#!/usr/local/bin/perl -w

sub somme
{

    my ($num)= @_ ;        # Les paramètres de la fonction