while ($age = next_age()) {
    $ages += $age;
    $n++;
}
print "average = ", $ages / $n, "\n";