#!/usr/local/bin/perl
# Jaime Prilusky, 2004

  print average(30,5,67,2,69),"\n";
  print average( 1 .. 10),"\n";

sub average {
  my (@vals) = @_;
  my $numOfValues = scalar @vals;
  print "received $numOfValues values: @vals\n";
  my($num,$total);
  foreach $num (@vals) {
    $total += $num;
  }
  my $avg = $total / $numOfValues;
  return $avg;
}