#!/usr/bin/perl

use strict;
use warnings;

sub total {
  my $sum;
  foreach (@_) {
    $sum += $_;
  }
  $sum;
}

print "Give me some numbers to add together:\n";
my @num_list = <STDIN>;
my $num_list_total = total(@num_list);

my $size = @num_list;
my @average = $num_list_total / $size;

print "The total of the numbers in your list is $num_list_total.\n";
print "The average of the numbers is @average.\n";

sub above_average {
#  my $average = average(@_);
  @average = average(@_);
  my @list;
  foreach my $element (@_) {
    if ($element > @average) {
      push @list, $element;
    }
  }
  @list;
}

my $num_above_average = above_average(@num_list);

print "The following numbers are above the group average: $num_above_average\n";