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