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