foreach my $i ($#$arr)
{
    $avg = ($i + ($avg ? $avg : $i)) / 2;
}