#!/usr/bin/perl -w
use strict;

my @test = (1,2,3,4,5,6,7,8,9);

print sum(@test),"\n";
print max(@test),"\n";

sub sum
{
   my @nums = @_;
   my $sum =0;
   
   foreach my $num (@nums)
   {
     $sum+= $num;
   }
   return ($sum);
}

sub max
{
    my @nums = @_;
    
    my $max = -9999999999;
    
    foreach my $num (@nums)
    {
       if ($num>$max)
       {
          $max = $num;
       }
    }
    return ($max);
}
__END__
PRINTS:
45
9