RosettaCodeData/Task/Averages-Arithmetic-mean/Perl/averages-arithmetic-mean.pl

sub avg {
  @_ or return 0;
  my $sum = 0;
  $sum += $_ foreach @_;
  return $sum/@_;
}

print avg(qw(3 1 4 1 5 9)), "\n";