use warnings;
use strict;

my $sum = 0;
my @nums;    # same as my @nums = ();

while (<DATA>) {
    chomp;
    push @nums, $_;
}

$sum += $_ for @nums;

my $size    = @nums;
my $average = $sum / $size;

print $average, $/;

__DATA__
1
2
3
4
5
6