#!/usr/bin/perl
use strict;
use warnings;

sub total {
    my (@numbers) = @_;

    my $total = 0;
    foreach my $number (@numbers) {
        $total += $number;
    }
    $total;
}

sub above_average {
    my (@given_numbers) = @_;
    my $average = total(@given_numbers) / @given_numbers;

    my @numbers_above_average;
    foreach my $given (@given_numbers) {
        if ( $given > $average ) {
            push @numbers_above_average, $given;
        }
    }
    @numbers_above_average;
}

foreach my $above ( above_average(qw/ 2 8 5 0 1 12 4 /) ) {
    print "$above was above average\n";
}