c:\@Work\Perl\monks>perl -wMstrict -le
"my @array = (-2, -1, 0, 1, 2);
 my $average = 0;
 ;;
 foreach (@array) {
   if ($average > $_) {
   print qq{$_\t is below average.};
   } elsif ($average < $_) {
       print qq{$_\t is above average.};
   } elsif ($average = $_) {
       print qq{$_\t is equal to average.};
   }
 }
"
-2       is below average.
-1       is below average.
1        is above average.
2        is above average.