Select Code to Download

my @array;

while (my $data = <FH>) {
    push @array, $data;
}

my @array = <FH>;

foreach (@array) {
    chomp;
...
        print "$_\t is equal to average.\n";
    }
}

c:\@Work\Perl\monks>perl -wMstrict -le
"my @array = (-2, -1, 0, 1, 2);
...
-1       is below average.
1        is above average.
2        is above average.

c:\@Work\Perl\monks>perl -wMstrict -le
"print average();
...
 }
"
0