#!/usr/bin/perl
use strict;
use warnings;
#sub large_number($_[0],$_[1]){
#  if($_[0]>$_[1]){
#    print $_[0];}
#  else{
#    print $_[1];}
#
#}
#$a=<STDIN>;
#$b=<STDIN>;
#
#&large_number($a,$b);
#print ;

####第四章第一题答案###
#sub total{
#  my($result)=shift @_;
#  foreach(@_){
#    $result=$result+$_;
#  }
# return $result;
#}

#my @fred=qw(1 3 5 7 9);
#my $fred_total=&total(@fred);
#print "The total of\@fred is $fred_total.\n";
#print "Enter some numbers on separate lines:";
#my $user_total=&total(<STDIN>);
#print "The total of those number is $user_total.\n";

#######第四章第二题答案#####

#sub total{
#  my($result)=shift @_;
#  foreach(@_){
#    $result=$result+$_;
#  }
# return $result;
#}
#my @sum=('1','2','3'...'1000');
#my $total_sum=&total(@sum);
#print $total_sum;
#print "\n";
#############第四章第三题答案##########
sub average{
    my($result)=shift@_;
    my($index)=1;
    foreach(@_){
      $result+=$_;
      $index=$index+1;
      }
    return $result/$index;
}
sub over_average{
    my($aver)=&average(@_);
    my(@over_aver)=();
    my($midnum);
    foreach(@_){
      if($_>$aver){
        $midnum=$_;
        print ;
        print "\n";
        }
       #return $midnum;
}
}
my @sum=('1','2'...'5');
my $ave=&average(@sum);
print $ave ."\n";
print "test over average.\n";
my $aver=&over_average(@sum);
print $aver."\n";