$| = 1; #### undef $x; for(@exes){ $x=$x+$_; } #### undef $x; for(@exes){ $x += $_; } #### for(@exes){ $tot += ($_-$ave)**2; }