use warnings;
use strict;

my @nums = 1 .. 10;
my $sum  = 0;

foreach my $index ( 0 .. $#nums ) {
    $sum += $nums[$index];
}

print "Average: ", $nums[0], " to ", $nums[$#nums], " = ", $sum / scalar @nums;