#!/usr/bin/perl -w

use strict;

sub addition {
    my $sum;
    my(@mynumbers) = @_ ;
    for (@mynumbers){
        $sum += $_ ;
    }
    return $sum ;
}

my @numlist = <STDIN> ; chomp(@numlist);
my $total = addition(@numlist) ;
my $average = $total/scalar(@numlist) ;
print '---',"\n","Average: $average\n", '---',"\n";
for (@numlist) {
  if ($_ > $average) {
        print "$_ is greater than $average \n" ;
  }
}
[download]

$ perl 641496.pl
1
2
65
33
49
---
Average: 30
---
65 is greater than 30
33 is greater than 30
49 is greater than 30
[download]