#!/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" ;
  }
}