if ($val != "0")

##</code><code>##

            @values=(@values,$val);

##</code><code>##

            push @values, $val;

##</code><code>##

&maximum(@values,$arraysize);

...

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