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

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

sub average {
  my (@vals) = @_;
  my $numOfValues = scalar @vals;
  my ($num,$total,$avg,$max);
  my $min = 99999999999999;
  foreach $num (@vals) {
    $min = $num if ($min > $num);
    $max = $num if ($max < $num);
    $total += $num;
  }
  $avg = $total / $numOfValues;
  return ($avg,$numOfValues,$min,$max);
}