C:\test>perl -MTime::HiRes=time -E"$t=time; ++$c for 1..1e6; say time-$t; <>"
0.0741260051727295
5.2 MB

C:\test>perl -MTime::HiRes=time -E"$e=1e6;$t=time; ++$c for 1..$e; say time-$t; <>"
0.0663371086120605
5.3 MB

C:\test>perl -MTime::HiRes=time -E"$t=time; ++$c for 1..1e7; say time-$t; <>"
0.635999917984009
5.2 MB

C:\test>perl -MTime::HiRes=time -E"$e=1e7;$t=time; ++$c for 1..$e; say time-$t; <>"
0.645999908447266
5.3 MB

C:\test>perl -MTime::HiRes=time -E"$t=time; ++$c for 1..1e8; say time-$t; <>"
6.22199988365173
5.2 MB

C:\test>perl -MTime::HiRes=time -E"$e=1e8;$t=time; ++$c for 1..$e; say time-$t; <>"
6.46099996566772
5.3 MB

C:\test>perl -MTime::HiRes=time -E"$t=time; ++$c for 1..1e9; say time-$t; <>"
61.9520001411438
5.2MB

C:\test>perl -MTime::HiRes=time -E"$e=1e9;$t=time; ++$c for 1..$e; say time-$t; <>"
64.4389998912811
5.3 MB

##</code><code>##

C:\test>perl -MTime::HiRes=time -E"$t=time; ++$c for 1..1e2; say time-$t; <>"
2.09808349609375e-005
5.2 MB

C:\test>perl -MTime::HiRes=time -E"$e=1e2;$t=time; ++$c for 1..$e; say time-$t; <>"
1.9073486328125e-005
5.3 MB