Miscellany

#!/usr/bin/perl
use warnings;

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

sub average {
  if (@_ == 0) { return; }
  &total(@_)/@_;
}

sub above_average {
  my $av = &average(@_);
  my @ar;
  foreach (@_) {
    if ($_ > $av) {
      push @ar, $_;
    }
  }
  @ar;
}


@nos = (1, 43, 65, 65, 23, 76, 32, 94);
print &above_average(@nos);
print "\n";