What are you trying to do?

$ time perl -e 'print "$_\n" for (1..100);'

That takes about 5 milliseconds on my ultra-fast PC. 100 loops. 5 milliseconds.
A second per loop? You can slow it down if you want to...