&maximum(@values,$arraysize);

...

sub average
      {
      @stuff = @_;
      my $sum = 0;
      ($sum+=$_) for @stuff;
      my $average = $sum / $arraysize;
      return $average;
      }