###################################################
#                                                 #
#   2/24/21                                       #
#      Program takes finds the average in an      #
#      array and lists out the numbers that were  #
#      above the average found.                   #
#                                                 #
###################################################
use strict;
use warnings;

my @numbers = qw(4 12 18 21 35);
my $average = find_average(@numbers);
my @high_avg = above_average($average, @numbers);

print <<STR;
The average found for this list is: $average
The numbers that were found above average are: @high_avg
STR

sub find_average {
    die "find_average expects to be passed a list of numbers" if !@_;

    my $sum = 0;

    $sum += $_ for @_;
    return $sum / @_;
}

sub above_average {
    my ($average_num, @values) = @_;

    return grep {$_ > $average_num} @values;
}

##</code><code>##

The average found for this list is: 18
The numbers that were found above average are: 21 35