Mine

#!/usr/bin/perl

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

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


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


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 "(Should be 6 7 8 9 10)\n";
my @barney = &above_average(100, 1..10);
print "\@barney is" . &printnice(@barney) . "\n";
print "(Should be just 100)\n";