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