###################################################
# #
# 2/24/21 #
# Program takes finds the average in an #
# array and lists out the numbers that were #
# above the average found. #
# #
###################################################
my @numbers = qw(4 12 18 21 35);
my $average = &find_average(@numbers);
print "The average found for this list is: $average \n " ;
my @high_avg = &above_average($average, @numbers);
print "The numbers that were found above average are: @high_avg \n";
sub find_average {
my ($sum, $number_count) ;
foreach (@_) {
$sum += $_;
$number_count += 1;
}
my $avg = $sum / $number_count ;
}
sub above_average {
my $average_num;
my @final_list;
foreach $_ (@_) {
if ($_ > $average_num) {
push @final_list, $_
}
}
}