增加Perl求平均值另一种实现。