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

  my ($mean,$num) = average( 234 .. 888);
  print "mean is $mean for $num values\n";

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