#!/usr/local/bin/perl
# Jaime Prilusky, 2004
# warning ... take a closer look!

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

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