use List::Util 'sum';

my ($iter, $sum) = shift || 1_000_000;

$sum += sum +(sort map {1 + int rand 6} 1..4)[1..3] for 1..$iter;

print $sum/$iter, $/;