================ SmallProf version 1.11 ================ Profile of test3.pl8 Page 1 ================================================================= count wall tm cpu time line 0 0.000000 0.000000 1:$t = sub { 1010 0.000000 0.110000 2: for(1..100) { 11000 0.999900 1.133000 3: for(1..10) { 10000 0.999900 1.170000 4: $x++; 0 0.000000 0.000000 5: } 0 0.000000 0.000000 6: } 1 0.000000 0.000000 7:}; 11 0.000000 0.000000 8:for(1..10) { 10 0.000000 0.000000 9: print $t->(); 0 0.000000 0.000000 10:} 1 0.550701 0.000000 11:print 'Done';