>perl -wMstrict -le
"my @values = (1, 2, 3, 4, 5);
 my $average;
 for my $value (@values) {
   $average += $value;
   }
 $average /= @values;
 print qq{average is $average};
"
average is 3

##</code><code>##

>perl -wMstrict -le
"use List::Util qw(sum);
 my @values = (1, 2, 3, 4, 5);
 my $average = sum(@values) / @values;
 print qq{average is $average};
"
average is 3