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