in previous comment, using this variant:

time perl -e 'for($i=0;$i<=1000;$i++){for($j=0;$j<=1000;$j++){for($k
+=0;$k<=100;$k++){}}}'

have the same time with just using 1 loop with $i=1x10e8