Unnamed

#!/usr/bin/perl

sub total {
        my $sum = 0;
        my @array = @_;
        foreach $number (@array) {
                $sum = $sum + $number;
        }
        return $sum;
}

sub above_average {
    my $average = &average (@_);
    my @out;
    foreach $number (@_) {
        if ($number > $average) {
            push @out, $number;
        }
    }
    return @out;
}


sub average {
    my $average = (total (@_))/(scalar @_);
}


#sub printnice {
#    foreach $item (@_) {
#       if ($item eq $_[-1]) {
#           print "and " . $item . ".\n";
#       } else {
#           print $item. ", ";
#        }
#    }
#}

my @fred = &above_average(1..10);
#print "\@fred is " . &printnice(@fred) . "\n";
print "\@fred is @fred.\n";
print "(Should be 6 7 8 9 10)\n";
my @barney = &above_average(100, 1..10);
#print "\@barney is" . &printnice(@barney) . "\n";
print "\@barney is @barney.\n";
print "(Should be just 100)\n";