#!/usr/bin/perl
use strict;
use warnings;

my $sampleSize = 7;
my ($sum, $ssum);
for my $i (1..1000){
    $sum = 0;
    for my $j (1..$sampleSize){
        $sum+=rand();
    }
    $sum/=$sampleSize;
    $ssum+=$sum;
}
$ssum/=1000;
print "$ssum\n";