perl -MData::Dump -e " @f = map { 0.001 } 1 .. 40; dd\@f; $o = 0; for(@f){ dd $o+=$_; } dd int @f; dd $o/int(@f); " perl -MData::Dump -e " $o = 0; for(1 .. 40){ dd $o+= 0.001; } dd $o/40; "