#  my $average = average(@_);
  @average = average(@_);