Perl Program to use function or subroutine that takes a list of numbers and then returns their average

Program:

sub Average {
   # get total number of arguments passed.
   $n = scalar(@_);
   $sum = 0;

   foreach $item (@_) {
      $sum += $item;
   }
   $average = $sum / $n;

   return $average;
}

# Function call
$num = Average(10, 20, 30);
print "\nAverage for the given numbers : $num\n";

Expected O/P:

Average for the given numbers : 20