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

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

sub average {
  my (@vals) = @_;
  my $numOfValues = scalar @vals;
  my ($num,$total,$avg);
  foreach $num (@vals) {
    $total += $num;
  }
  $avg = $total / $numOfValues;
  return $avg;
}