my ($avg, $num_contrib) = (0, 0);
foreach (<get a line>) {
    my $val = <something>;
    $avg += ($val - $avg) / ++$num_contrib;
}